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

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

@@ -7 +7 @@
 
 /*********************** fits create Theader *********************************/
-int fits_create_Theader (Header *header, char *type) {
+int gfits_create_Theader (Header *header, char *type) {
   
   int i;
@@ -19 +19 @@
   strncpy (header[0].buffer, "END", 3);
   
-  fits_modify (header, "XTENSION", "%s", 1, type);
-  fits_modify (header, "BITPIX", "%d", 1, header[0].bitpix);
-  fits_modify (header, "NAXIS",  "%d", 1, header[0].Naxes);
+  gfits_modify (header, "XTENSION", "%s", 1, type);
+  gfits_modify (header, "BITPIX", "%d", 1, header[0].bitpix);
+  gfits_modify (header, "NAXIS",  "%d", 1, header[0].Naxes);
   
   for (i = 0; i < header[0].Naxes; i++) {
     sprintf (axis, "NAXIS%d", i + 1);
-    fits_modify (header,  axis, "%d", 1, header[0].Naxis[i], 1);
+    gfits_modify (header,  axis, "%d", 1, header[0].Naxis[i], 1);
   }
   
   /* PCOUNT & GCOUNT are not implemented, but they are required to be here */
-  fits_modify (header, "PCOUNT", "%d", 1, 0);
-  fits_modify (header, "GCOUNT", "%d", 1, 1);
+  gfits_modify (header, "PCOUNT", "%d", 1, 0);
+  gfits_modify (header, "GCOUNT", "%d", 1, 1);
   if (!strcmp (type, "IMAGE")) {
-    fits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
-    fits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
+    gfits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
+    gfits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
   }
 
@@ -40 +40 @@
 
 /*********************** fits create table header *********************************/
-int fits_create_table_header (Header *header, char *type, char *extname) {
+int gfits_create_table_header (Header *header, char *type, char *extname) {
   
   int i, valid;
@@ -71 +71 @@
   
   /* required keywords */
-  fits_modify (header, "XTENSION", "%s", 1, type);
-  fits_modify (header, "BITPIX", "%d", 1, header[0].bitpix);
-  fits_modify (header, "NAXIS",  "%d", 1, header[0].Naxes);
+  gfits_modify (header, "XTENSION", "%s", 1, type);
+  gfits_modify (header, "BITPIX", "%d", 1, header[0].bitpix);
+  gfits_modify (header, "NAXIS",  "%d", 1, header[0].Naxes);
   
   for (i = 0; i < header[0].Naxes; i++) {
     sprintf (axis, "NAXIS%d", i + 1);
-    fits_modify (header,  axis, "%d", 1, header[0].Naxis[i], 1);
+    gfits_modify (header,  axis, "%d", 1, header[0].Naxis[i], 1);
   }
   
   /* PCOUNT & GCOUNT are not implemented, but they are required to be here */
-  fits_modify (header, "PCOUNT", "%d", 1, 0);
-  fits_modify (header, "GCOUNT", "%d", 1, 1);
+  gfits_modify (header, "PCOUNT", "%d", 1, 0);
+  gfits_modify (header, "GCOUNT", "%d", 1, 1);
   if (!strcmp (type, "IMAGE")) {
-    fits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
-    fits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
+    gfits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
+    gfits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
   }
 
-  fits_modify (header, "TFIELDS", "%d", 1, 0);
-  fits_modify (header, "EXTNAME", "%s", 1, extname);
+  gfits_modify (header, "TFIELDS", "%d", 1, 0);
+  gfits_modify (header, "EXTNAME", "%s", 1, extname);
   
   return (TRUE);