Changeset 7054 for trunk/Ohana/src/libfits/table/F_define_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_define_column.c (modified) (4 diffs)

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

@@ -3 +3 @@
 
 /***********************/
-int fits_define_bintable_column (Header *header, char *format, char *label, char *comment, char *unit, double bscale, double bzero) {
+int gfits_define_bintable_column (Header *header, char *format, char *label, char *comment, char *unit, double bscale, double bzero) {
 
   int Nfields, Nbytes, Nval, Naxis1;
   char type[16], field[16];
   
-  if (!fits_bintable_format (format, type, &Nval, &Nbytes)) return (FALSE);
+  if (!gfits_bintable_format (format, type, &Nval, &Nbytes)) return (FALSE);
   
   Nfields = 0;
-  fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  fits_scan (header, "NAXIS1",  "%d", 1, &Naxis1);
+  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
+  gfits_scan (header, "NAXIS1",  "%d", 1, &Naxis1);
   Nfields ++;
   Naxis1 += Nbytes*Nval;
 
   sprintf (field, "TTYPE%d", Nfields);
-  fits_modify (header, field, "%s", 1, label);
-  fits_modify (header, field, "%C", 1, comment);
+  gfits_modify (header, field, "%s", 1, label);
+  gfits_modify (header, field, "%C", 1, comment);
   sprintf (field, "TUNIT%d", Nfields);
-  fits_modify (header, field, "%s", 1, unit);
+  gfits_modify (header, field, "%s", 1, unit);
   sprintf (field, "TFORM%d", Nfields);
-  fits_modify (header, field, "%s", 1, format);
+  gfits_modify (header, field, "%s", 1, format);
   sprintf (field, "TSCAL%d", Nfields);
-  fits_modify (header, field, "%lf", 1, bscale);
+  gfits_modify (header, field, "%lf", 1, bscale);
   sprintf (field, "TZERO%d", Nfields);
-  fits_modify (header, field, "%lf", 1, bzero);
+  gfits_modify (header, field, "%lf", 1, bzero);
 
   /* update TFIELDS & NAXIS1 */
-  fits_modify (header, "TFIELDS", "%d", 1, Nfields);
-  fits_modify (header, "NAXIS1",  "%d", 1, Naxis1);
+  gfits_modify (header, "TFIELDS", "%d", 1, Nfields);
+  gfits_modify (header, "NAXIS1",  "%d", 1, Naxis1);
   header[0].Naxis[0] = Naxis1;
 
@@ -37 +37 @@
 
 /***********************/
-int fits_define_table_column (Header *header, char *format, char *label, char *comment, char *unit) {
+int gfits_define_table_column (Header *header, char *format, char *label, char *comment, char *unit) {
 
   int Nstart, Nfields, Nbytes, Nval, Naxis1;
@@ -43 +43 @@
 
   strcpy (cformat, format);
-  if (!fits_table_format (cformat, type, &Nval, &Nbytes)) return (FALSE);
+  if (!gfits_table_format (cformat, type, &Nval, &Nbytes)) return (FALSE);
 
   Nfields = 0;
-  fits_scan (header, "TFIELDS", "%d", 1, &Nfields);
-  fits_scan (header, "NAXIS1",  "%d", 1, &Naxis1);
+  gfits_scan (header, "TFIELDS", "%d", 1, &Nfields);
+  gfits_scan (header, "NAXIS1",  "%d", 1, &Naxis1);
   Nstart = Naxis1 + 1;
   Nfields ++;
@@ -53 +53 @@
 
   sprintf (field, "TTYPE%d", Nfields);
-  fits_modify (header, field, "%s", 1, label);
-  fits_modify (header, field, "%C", 1, comment);
+  gfits_modify (header, field, "%s", 1, label);
+  gfits_modify (header, field, "%C", 1, comment);
   sprintf (field, "TUNIT%d", Nfields);
-  fits_modify (header, field, "%s", 1, unit);
+  gfits_modify (header, field, "%s", 1, unit);
   sprintf (field, "TFORM%d", Nfields);
-  fits_modify (header, field, "%s", 1, format);
+  gfits_modify (header, field, "%s", 1, format);
 
   sprintf (field, "TBCOL%d", Nfields);
-  fits_modify (header, field, "%d", 1, Nstart);
+  gfits_modify (header, field, "%d", 1, Nstart);
 
-  fits_modify (header, "TFIELDS", "%d", 1, Nfields);
-  fits_modify (header, "NAXIS1",  "%d", 1, Naxis1);
+  gfits_modify (header, "TFIELDS", "%d", 1, Nfields);
+  gfits_modify (header, "NAXIS1",  "%d", 1, Naxis1);
   header[0].Naxis[0] = Naxis1;