Changeset 7054 for trunk/Ohana/src/libfits/header/F_create_H.c

Timestamp:

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

Author:

eugene

Message:

converted fits_ to gfits_

File:

• trunk/Ohana/src/libfits/header/F_create_H.c (modified) (2 diffs)

trunk/Ohana/src/libfits/header/F_create_H.c

@@ -4 +4 @@
 
 /******************** fits create header ***********************************/
-int fits_create_header (Header *header) {
+int gfits_create_header (Header *header) {
 
   int i;
@@ -17 +17 @@
   strncpy (header[0].buffer, "END", 3);
 
-  fits_modify (header, "SIMPLE", "%t", 1, header[0].simple);
-  fits_modify (header, "BITPIX", "%d", 1, header[0].bitpix);
-  fits_modify (header, "NAXIS",  "%d", 1, header[0].Naxes);
+  gfits_modify (header, "SIMPLE", "%t", 1, header[0].simple);
+  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]);
+    gfits_modify (header,  axis, "%d", 1, header[0].Naxis[i]);
   }
 
   /* 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);
-  fits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
-  fits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
-  fits_modify (header, "EXTEND", "%t",  1, header[0].extend);
+  gfits_modify (header, "PCOUNT", "%d", 1, 0);
+  gfits_modify (header, "GCOUNT", "%d", 1, 1);
+  gfits_modify (header, "BSCALE", "%lf", 1, header[0].bscale);
+  gfits_modify (header, "BZERO",  "%lf", 1, header[0].bzero);
+  gfits_modify (header, "EXTEND", "%t",  1, header[0].extend);
   return (TRUE);