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

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

@@ -3 +3 @@
 
 /*********************** fits read Theader ***********************************/
-int fits_read_Theader (char *filename, Header *Theader) {
+int gfits_read_Theader (char *filename, Header *Theader) {
   
   FILE *f;
@@ -9 +9 @@
   int status, Nbytes;
   
-  status = fits_read_header (filename, &header);
+  status = gfits_read_header (filename, &header);
   if (!status) {
     fprintf (stderr, "error reading header of FITS file %s\n", filename);
@@ -18 +18 @@
   if (f == NULL) {
     Theader[0].buffer = NULL;
-    fits_free_header (&header);
+    gfits_free_header (&header);
     return (FALSE);
   }
 
-  Nbytes = fits_matrix_size (&header);
+  Nbytes = gfits_matrix_size (&header);
   fseek (f, Nbytes, SEEK_SET);
-  fits_free_header (&header);
+  gfits_free_header (&header);
 
-  status = fits_load_Theader (f, Theader);
+  status = gfits_load_Theader (f, Theader);
   fclose (f);
   return (status);
@@ -33 +33 @@
 /* load table from STREAM positioned at beginning of table header */
 /*********************** fits load Theader ***********************************/
-int fits_load_Theader (FILE *f, Header *Theader) {
+int gfits_load_Theader (FILE *f, Header *Theader) {
   
   char *p;
@@ -49 +49 @@
     if (Nbytes != FT_RECORD_SIZE) 
       done = TRUE;
-    p = fits_header_field (Theader, "END", 1);
+    p = gfits_header_field (Theader, "END", 1);
     if (p != NULL)
       done = TRUE;
@@ -60 +60 @@
 
   status = TRUE;
-  status &= fits_scan (Theader,  "BITPIX", "%d", 1, &Theader[0].bitpix);
-  status &= fits_scan (Theader,  "NAXIS",  "%d", 1, &Theader[0].Naxes);
+  status &= gfits_scan (Theader,  "BITPIX", "%d", 1, &Theader[0].bitpix);
+  status &= gfits_scan (Theader,  "NAXIS",  "%d", 1, &Theader[0].Naxes);
   if (!status) return (FALSE);
                                                            
-  fits_scan (Theader,  "NAXIS1", "%d", 1, &Theader[0].Naxis[0]);
-  fits_scan (Theader,  "NAXIS2", "%d", 1, &Theader[0].Naxis[1]);
-  fits_scan (Theader,  "NAXIS3", "%d", 1, &Theader[0].Naxis[2]);
-  fits_scan (Theader,  "NAXIS4", "%d", 1, &Theader[0].Naxis[3]);
-  fits_scan (Theader,  "NAXIS5", "%d", 1, &Theader[0].Naxis[4]);
-  fits_scan (Theader,  "NAXIS6", "%d", 1, &Theader[0].Naxis[5]);
-  fits_scan (Theader,  "NAXIS7", "%d", 1, &Theader[0].Naxis[6]);
-  fits_scan (Theader,  "NAXIS8", "%d", 1, &Theader[0].Naxis[7]);
-  fits_scan (Theader,  "NAXIS9", "%d", 1, &Theader[0].Naxis[8]);
-  fits_scan (Theader, "NAXIS10", "%d", 1, &Theader[0].Naxis[9]);
+  gfits_scan (Theader,  "NAXIS1", "%d", 1, &Theader[0].Naxis[0]);
+  gfits_scan (Theader,  "NAXIS2", "%d", 1, &Theader[0].Naxis[1]);
+  gfits_scan (Theader,  "NAXIS3", "%d", 1, &Theader[0].Naxis[2]);
+  gfits_scan (Theader,  "NAXIS4", "%d", 1, &Theader[0].Naxis[3]);
+  gfits_scan (Theader,  "NAXIS5", "%d", 1, &Theader[0].Naxis[4]);
+  gfits_scan (Theader,  "NAXIS6", "%d", 1, &Theader[0].Naxis[5]);
+  gfits_scan (Theader,  "NAXIS7", "%d", 1, &Theader[0].Naxis[6]);
+  gfits_scan (Theader,  "NAXIS8", "%d", 1, &Theader[0].Naxis[7]);
+  gfits_scan (Theader,  "NAXIS9", "%d", 1, &Theader[0].Naxis[8]);
+  gfits_scan (Theader, "NAXIS10", "%d", 1, &Theader[0].Naxis[9]);
 
   return (TRUE);
@@ -79 +79 @@
 
 /*********************** fits fread Theader ***********************************/
-int fits_fread_Theader (FILE *f, Header *Theader) {
+int gfits_fread_Theader (FILE *f, Header *Theader) {
   
   int status;
   
-  status = fits_load_Theader (f, Theader);
+  status = gfits_load_Theader (f, Theader);
   return (status);
 }