Changeset 7080 for trunk/Ohana/src/opihi/cmd.data/list_header.c

Timestamp:

May 5, 2006, 5:44:26 PM (20 years ago)

Author:

eugene

Message:

big move: fits_ to gfits_; minor updates to relphot

File:

• trunk/Ohana/src/opihi/cmd.data/list_header.c (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.data/list_header.c

@@ -36 +36 @@
     bscale = buf[0].header.bscale;
     unsign = buf[0].header.unsign;
-    fits_free_header (&buf[0].header);
+    gfits_free_header (&buf[0].header);
     
     strcpy (filename, buf[0].file);
     strcpy (buf[0].file, "*");
     strcat (buf[0].file, filename);
-    status = fits_read_header (argv[2], &buf[0].header);
+    status = gfits_read_header (argv[2], &buf[0].header);
     buf[0].header.bitpix = bitpix;     
     buf[0].header.bzero  = bzero;      
     buf[0].header.bscale = bscale;     
     buf[0].header.unsign = unsign;     
-    fits_modify (&buf[0].header, "BITPIX", "%d",  1, bitpix);
-    fits_modify (&buf[0].header, "BSCALE", "%lf", 1, bscale);
-    fits_modify (&buf[0].header, "BZERO",  "%lf", 1, bzero);
-    fits_modify (&buf[0].header, "UNSIGN", "%t",  1, unsign);
+    gfits_modify (&buf[0].header, "BITPIX", "%d",  1, bitpix);
+    gfits_modify (&buf[0].header, "BSCALE", "%lf", 1, bscale);
+    gfits_modify (&buf[0].header, "BZERO",  "%lf", 1, bzero);
+    gfits_modify (&buf[0].header, "UNSIGN", "%t",  1, unsign);
     
   } else {
@@ -55 +55 @@
     f = popen ("more", "w");
     
-    p = fits_header_field (&buf[0].header, "END", 1);
+    p = gfits_header_field (&buf[0].header, "END", 1);
     nlines = (p - buf[0].header.buffer) / 80;
     nbytes = 81*nlines;