IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 3, 2006, 12:01:09 PM (20 years ago)
Author:
eugene
Message:

converted fits_ to gfits_

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/libfits/table/F_get_column.c

    r7039 r7054  
    1313
    1414/***********************/
    15 int fits_get_bintable_column_type (Header *header, char *label, char *type, int *Nval) {
     15int gfits_get_bintable_column_type (Header *header, char *label, char *type, int *Nval) {
    1616
    1717  int i, N, Nfields, Nbytes;
    … …  
    2323  /* find label in header */
    2424  tlabel[0] = 0;
    25   fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
    26   for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
    27     sprintf (field, "TTYPE%d", i);
    28     fits_scan (header, field, "%s", 1, tlabel);
    29   }
    30   if (strcmp (label, tlabel)) return (FALSE);
    31   N = i - 1;
    32 
    33   sprintf (field, "TFORM%d", N);
    34   fits_scan (header, field, "%s", 1, format);
    35 
    36   if (!fits_bintable_format (format, type, Nval, &Nbytes)) return (FALSE);
    37   return (TRUE);
    38 }
    39 
    40 /***********************/
    41 int fits_get_bintable_column (Header *header, FTable *table, char *label, void **data) {
     25  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
     26  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
     27    sprintf (field, "TTYPE%d", i);
     28    gfits_scan (header, field, "%s", 1, tlabel);
     29  }
     30  if (strcmp (label, tlabel)) return (FALSE);
     31  N = i - 1;
     32
     33  sprintf (field, "TFORM%d", N);
     34  gfits_scan (header, field, "%s", 1, format);
     35
     36  if (!gfits_bintable_format (format, type, Nval, &Nbytes)) return (FALSE);
     37  return (TRUE);
     38}
     39
     40/***********************/
     41int gfits_get_bintable_column (Header *header, FTable *table, char *label, void **data) {
    4242
    4343  int i, N, Nfields, Nval, Nbytes, Nx, Ny, Nstart, Nv, Nb;
    … …  
    5252  /* find label in header */
    5353  tlabel[0] = 0;
    54   fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
    55   for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
    56     sprintf (field, "TTYPE%d", i);
    57     fits_scan (header, field, "%s", 1, tlabel);
     54  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
     55  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
     56    sprintf (field, "TTYPE%d", i);
     57    gfits_scan (header, field, "%s", 1, tlabel);
    5858  }
    5959  if (strcmp (label, tlabel)) return (FALSE);
    … …  
    6565  /* interpret format */
    6666  sprintf (field, "TSCAL%d", Nfields);
    67   fits_scan (header, field, "%lf", 1, &Bscale);
     67  gfits_scan (header, field, "%lf", 1, &Bscale);
    6868  sprintf (field, "TZERO%d", Nfields);
    69   fits_scan (header, field, "%lf", 1, &Bzero);
    70   sprintf (field, "TFORM%d", N);
    71   fits_scan (header, field, "%s", 1, format);
    72 
    73   if (!fits_bintable_format (format, type, &Nval, &Nbytes)) return (FALSE);
     69  gfits_scan (header, field, "%lf", 1, &Bzero);
     70  sprintf (field, "TFORM%d", N);
     71  gfits_scan (header, field, "%s", 1, format);
     72
     73  if (!gfits_bintable_format (format, type, &Nval, &Nbytes)) return (FALSE);
    7474 
    7575  /* check existing table dimensions */
    76   fits_scan (header, "NAXIS1",  "%d", 1, &Nx);
    77   fits_scan (header, "NAXIS2",  "%d", 1, &Ny);
     76  gfits_scan (header, "NAXIS1",  "%d", 1, &Nx);
     77  gfits_scan (header, "NAXIS2",  "%d", 1, &Ny);
    7878
    7979  /* scan columns to find insert point */
    … …  
    8181  for (i = 1; i < N; i++) {
    8282    sprintf (field, "TFORM%d", i);
    83     fits_scan (header, field, "%s", 1, format);
    84     fits_bintable_format (format, tmpline, &Nv, &Nb);
     83    gfits_scan (header, field, "%s", 1, format);
     84    gfits_bintable_format (format, tmpline, &Nv, &Nb);
    8585    Nstart += Nv*Nb;
    8686  }
    … …  
    163163
    164164/***********************/
    165 int fits_get_table_column_type (Header *header, char *label, char *type) {
     165int gfits_get_table_column_type (Header *header, char *label, char *type) {
    166166
    167167  int i, N, Nfields, Nval, Nbytes;
    … …  
    173173  /* find label in header */
    174174  tlabel[0] = 0;
    175   fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
    176   for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
    177     sprintf (field, "TTYPE%d", i);
    178     fits_scan (header, field, "%s", 1, tlabel);
     175  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
     176  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
     177    sprintf (field, "TTYPE%d", i);
     178    gfits_scan (header, field, "%s", 1, tlabel);
    179179  }
    180180  if (strcmp (label, tlabel)) return (FALSE);
    … …  
    183183  /* interpret format */
    184184  sprintf (field, "TFORM%d", N);
    185   fits_scan (header, field, "%s", 1, format);
    186 
    187   if (!fits_table_format (format, type, &Nval, &Nbytes)) return (FALSE);
    188   return (TRUE);
    189 }
    190 
    191 /***********************/
    192 int fits_get_table_column (Header *header, FTable *table, char *label, void **data) {
     185  gfits_scan (header, field, "%s", 1, format);
     186
     187  if (!gfits_table_format (format, type, &Nval, &Nbytes)) return (FALSE);
     188  return (TRUE);
     189}
     190
     191/***********************/
     192int gfits_get_table_column (Header *header, FTable *table, char *label, void **data) {
    193193
    194194  int i, N, Nfields, Nval, Nbytes, Nx, Ny, Nstart, Nv, Nb;
    … …  
    202202  /* find label in header */
    203203  tlabel[0] = 0;
    204   fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
    205   for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
    206     sprintf (field, "TTYPE%d", i);
    207     fits_scan (header, field, "%s", 1, tlabel);
     204  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
     205  for (i = 1; strcmp (label, tlabel) && (i < Nfields + 1); i++) {
     206    sprintf (field, "TTYPE%d", i);
     207    gfits_scan (header, field, "%s", 1, tlabel);
    208208  }
    209209  if (strcmp (label, tlabel)) return (FALSE);
    … …  
    212212  /* interpret format */
    213213  sprintf (field, "TFORM%d", N);
    214   fits_scan (header, field, "%s", 1, format);
    215 
    216   if (!fits_table_format (format, type, &Nval, &Nbytes)) return (FALSE);
     214  gfits_scan (header, field, "%s", 1, format);
     215
     216  if (!gfits_table_format (format, type, &Nval, &Nbytes)) return (FALSE);
    217217  strcpy (cformat, format);
    218218 
    219219  /* check existing table dimensions */
    220   fits_scan (header, "NAXIS1",  "%d", 1, &Nx);
    221   fits_scan (header, "NAXIS2",  "%d", 1, &Ny);
     220  gfits_scan (header, "NAXIS1",  "%d", 1, &Nx);
     221  gfits_scan (header, "NAXIS2",  "%d", 1, &Ny);
    222222
    223223  /* scan columns to find insert point */
    … …  
    225225  for (i = 1; i < N; i++) {
    226226    sprintf (field, "TFORM%d", i);
    227     fits_scan (header, field, "%s", 1, format);
    228     fits_table_format (format, tmp, &Nv, &Nb);
     227    gfits_scan (header, field, "%s", 1, format);
     228    gfits_table_format (format, tmp, &Nv, &Nb);
    229229    Nstart += Nv*Nb;
    230230  }
Note: See TracChangeset for help on using the changeset viewer.