Changeset 7080 for trunk/Ohana/src/opihi/cmd.data/rdseg.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/rdseg.c (modified) (3 diffs)

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

@@ -28 +28 @@
   /* find matrix, free old data */
   if ((buf = SelectBuffer (argv[1], ANYBUFFER, TRUE)) == NULL) return (FALSE);
-  fits_free_matrix (&buf[0].matrix);
-  fits_free_header (&buf[0].header);
+  gfits_free_matrix (&buf[0].matrix);
+  gfits_free_header (&buf[0].header);
 
   /* save file name */
@@ -36 +36 @@
   free (filename);
 
-  status = fits_read_header (argv[2], &buf[0].header);
+  status = gfits_read_header (argv[2], &buf[0].header);
   sprintf (region, "%d %d %d %d 0 1", x, nx + x, y, ny + y);
-  status = fits_read_segment (argv[2], &buf[0].matrix, region);
-  fits_modify (&buf[0].header, "NAXIS1", "%d", 1, nx);
-  fits_modify (&buf[0].header, "NAXIS2", "%d", 1, ny);
+  status = gfits_read_segment (argv[2], &buf[0].matrix, region);
+  gfits_modify (&buf[0].header, "NAXIS1", "%d", 1, nx);
+  gfits_modify (&buf[0].header, "NAXIS2", "%d", 1, ny);
   buf[0].header.Naxis[0] = nx;
   buf[0].header.Naxis[1] = ny;
@@ -66 +66 @@
 
   /** now - convert the matrix values to floats for internal use **/
-  fits_convert_format (&buf[0].header, &buf[0].matrix, -32, 1.0, 0.0, FT_UNSIGN_MODE);
+  gfits_convert_format (&buf[0].header, &buf[0].matrix, -32, 1.0, 0.0, FT_UNSIGN_MODE);
   
   return (TRUE);