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

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

@@ -80 +80 @@
   memcpy (temp_header.buffer, buf[0].header.buffer, temp_header.size);
 
-  if (temp_header.Naxes) fits_convert_format (&temp_header, &temp_matrix, outBitpix, outScale, outZero, outUnsign);
+  if (temp_header.Naxes) gfits_convert_format (&temp_header, &temp_matrix, outBitpix, outScale, outZero, outUnsign);
 
   if (Extend) {
@@ -88 +88 @@
 
     /* assume failure means non-existent file */
-    if (!fits_read_header (argv[2], &Xhead)) {
+    if (!gfits_read_header (argv[2], &Xhead)) {
 
       Xhead.simple = TRUE;
@@ -99 +99 @@
       Xhead.unsign = FALSE;
       
-      fits_create_header (&Xhead);
-      fits_modify (&Xhead, "NEXTEND", "%d", 1, 0);
+      gfits_create_header (&Xhead);
+      gfits_modify (&Xhead, "NEXTEND", "%d", 1, 0);
       f = fopen (argv[2], "w");
       fclose (f);
     }
 
-    fits_modify (&Xhead, "EXTEND", "%t", 1, TRUE);
+    gfits_modify (&Xhead, "EXTEND", "%t", 1, TRUE);
 
     Nextend = 0;
-    fits_scan (&Xhead, "NEXTEND", "%d", 1, &Nextend);
+    gfits_scan (&Xhead, "NEXTEND", "%d", 1, &Nextend);
     Nextend ++;
-    fits_modify (&Xhead, "NEXTEND", "%d", 1, Nextend);
+    gfits_modify (&Xhead, "NEXTEND", "%d", 1, Nextend);
 
     /* write the main header to the start of the file */
@@ -149 +149 @@
     }
     /* write the matrix buffer (automatically goes to end of file */
-    if (!fits_write_matrix (argv[2], &temp_matrix)) {
+    if (!gfits_write_matrix (argv[2], &temp_matrix)) {
       fprintf (stderr, "failed to write file\n");
       status = FALSE;
@@ -156 +156 @@
     status = TRUE;
   done1:
-    fits_free_header (&Xhead);
-    fits_free_header (&temp_header);
-    fits_free_matrix (&temp_matrix);
+    gfits_free_header (&Xhead);
+    gfits_free_header (&temp_header);
+    gfits_free_matrix (&temp_matrix);
     return (status);
   }
   
   /* the actual write-to-disk goes here */
-  if (!fits_write_header (argv[2], &temp_header)) {
+  if (!gfits_write_header (argv[2], &temp_header)) {
     fprintf (stderr, "failed to write header\n");
-    fits_free_header (&temp_header);
-    fits_free_matrix (&temp_matrix);
+    gfits_free_header (&temp_header);
+    gfits_free_matrix (&temp_matrix);
     return (FALSE);
   }
   
-  if (!fits_write_matrix (argv[2], &temp_matrix)) {
+  if (!gfits_write_matrix (argv[2], &temp_matrix)) {
     fprintf (stderr, "failed to write matrix\n");
-    fits_free_header (&temp_header);
-    fits_free_matrix (&temp_matrix);
+    gfits_free_header (&temp_header);
+    gfits_free_matrix (&temp_matrix);
     return (FALSE);
   }
 
-  fits_free_header (&temp_header);
-  fits_free_matrix (&temp_matrix);
+  gfits_free_header (&temp_header);
+  gfits_free_matrix (&temp_matrix);
   
   return (TRUE);