Changeset 7054 for trunk/Ohana/src/libfits/header/F_read_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_read_H.c (modified) (6 diffs)

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

@@ -4 +4 @@
 
 /*********************** fits read header ***********************************/
-int fits_read_header (char *filename, Header *header) {
+int gfits_read_header (char *filename, Header *header) {
   
   FILE *f;
@@ -13 +13 @@
     return (FALSE);
   }
-  if (!fits_load_header (f, header)) {
+  if (!gfits_load_header (f, header)) {
     fclose (f);
     return (FALSE);
@@ -22 +22 @@
 }       
 
-int fits_load_header (FILE *f, Header *header) {
+int gfits_load_header (FILE *f, Header *header) {
 
   int i, done, Nbytes, t1, t2;
@@ -46 +46 @@
     }
 
-    p = fits_header_field (header, "END", 1);
+    p = gfits_header_field (header, "END", 1);
     if (p != NULL)
       done = TRUE;
@@ -57 +57 @@
     header[0].Naxis[i] = 0;
 
-  fits_scan (header,  "SIMPLE", "%t",   1, &header[0].simple);
-  fits_scan (header,  "BITPIX", "%d",   1, &header[0].bitpix);
-  fits_scan (header,  "NAXIS",  "%d",   1, &header[0].Naxes);
+  gfits_scan (header,  "SIMPLE", "%t",   1, &header[0].simple);
+  gfits_scan (header,  "BITPIX", "%d",   1, &header[0].bitpix);
+  gfits_scan (header,  "NAXIS",  "%d",   1, &header[0].Naxes);
                                                            
-  fits_scan (header,  "EXTEND", "%t",   1, &header[0].extend);
-  fits_scan (header,  "UNSIGN", "%t",   1, &header[0].unsign);
-  fits_scan (header,  "BSCALE", "%lf",  1, &header[0].bscale);
-  fits_scan (header,  "BZERO",  "%lf",  1, &header[0].bzero);
+  gfits_scan (header,  "EXTEND", "%t",   1, &header[0].extend);
+  gfits_scan (header,  "UNSIGN", "%t",   1, &header[0].unsign);
+  gfits_scan (header,  "BSCALE", "%lf",  1, &header[0].bscale);
+  gfits_scan (header,  "BZERO",  "%lf",  1, &header[0].bzero);
                                        
-  fits_scan (header,  "NAXIS1", "%d", 1, &header[0].Naxis[0]);
-  fits_scan (header,  "NAXIS2", "%d", 1, &header[0].Naxis[1]);
-  fits_scan (header,  "NAXIS3", "%d", 1, &header[0].Naxis[2]);
-  fits_scan (header,  "NAXIS4", "%d", 1, &header[0].Naxis[3]);
-  fits_scan (header,  "NAXIS5", "%d", 1, &header[0].Naxis[4]);
-  fits_scan (header,  "NAXIS6", "%d", 1, &header[0].Naxis[5]);
-  fits_scan (header,  "NAXIS7", "%d", 1, &header[0].Naxis[6]);
-  fits_scan (header,  "NAXIS8", "%d", 1, &header[0].Naxis[7]);
-  fits_scan (header,  "NAXIS9", "%d", 1, &header[0].Naxis[8]);
-  fits_scan (header, "NAXIS10", "%d", 1, &header[0].Naxis[9]);
+  gfits_scan (header,  "NAXIS1", "%d", 1, &header[0].Naxis[0]);
+  gfits_scan (header,  "NAXIS2", "%d", 1, &header[0].Naxis[1]);
+  gfits_scan (header,  "NAXIS3", "%d", 1, &header[0].Naxis[2]);
+  gfits_scan (header,  "NAXIS4", "%d", 1, &header[0].Naxis[3]);
+  gfits_scan (header,  "NAXIS5", "%d", 1, &header[0].Naxis[4]);
+  gfits_scan (header,  "NAXIS6", "%d", 1, &header[0].Naxis[5]);
+  gfits_scan (header,  "NAXIS7", "%d", 1, &header[0].Naxis[6]);
+  gfits_scan (header,  "NAXIS8", "%d", 1, &header[0].Naxis[7]);
+  gfits_scan (header,  "NAXIS9", "%d", 1, &header[0].Naxis[8]);
+  gfits_scan (header, "NAXIS10", "%d", 1, &header[0].Naxis[9]);
 
   return (TRUE);
@@ -81 +81 @@
 }
 
-int fits_fread_header (FILE *f, Header *header) {
+int gfits_fread_header (FILE *f, Header *header) {
 
   int status;
   
-  status = fits_load_header (f, header);
+  status = gfits_load_header (f, header);
   return (status);
 }