Changeset 7054 for trunk/Ohana/src/libfits/table/F_table_column.c

Timestamp:

May 3, 2006, 12:01:09 PM (20 years ago)

Author:

eugene

Message:

converted fits_ to gfits_

File:

• trunk/Ohana/src/libfits/table/F_table_column.c (modified) (5 diffs)

trunk/Ohana/src/libfits/table/F_table_column.c

@@ -3 +3 @@
 
 /*********************** fits table column ****************************/
-int fits_table_column (Table *table, char *field, char *mode,...) {
+int gfits_table_column (Table *table, char *field, char *mode,...) {
 /* we expect one more field: the pointer to the array we read in */
 
@@ -19 +19 @@
   for (i = 0; i < table[0].Nfields; i++) {
     sprintf (string, "TTYPE%d\0", i+1);
-    fits_scan (&table[0].header, string, "%s", 1, this_field);
+    gfits_scan (&table[0].header, string, "%s", 1, this_field);
     if (!strcmp (field, this_field)) {
       break;
@@ -33 +33 @@
 
   sprintf (string, "TBCOL%d\0", N);
-  fits_scan (&table[0].header, string, "%d", 1, &start);
+  gfits_scan (&table[0].header, string, "%d", 1, &start);
   sprintf (string, "TFORM%d\0", N);
-  fits_scan (&table[0].header, string, "%s", 1, form);
+  gfits_scan (&table[0].header, string, "%s", 1, form);
   /* we could use some error checking from the FITS table form, but
      it is not immediately crucial */
@@ -43 +43 @@
   } else {
     sprintf (string, "TBCOL%d\0", N+1);
-    fits_scan (&table[0].header, string, "%d", 1, &end);
+    gfits_scan (&table[0].header, string, "%d", 1, &end);
   }
   width = end - start;
@@ -88 +88 @@
       break;
     default:
-      fprintf (stderr, "unknown fits_table_column mode: %s\n", mode);
+      fprintf (stderr, "unknown gfits_table_column mode: %s\n", mode);
       return (FALSE);
     }