Changeset 18279

Timestamp:

Jun 22, 2008, 8:55:29 PM (18 years ago)

Author:

eugene

Message:

update BITPIX, etc for output phus

File:

• trunk/Ohana/src/opihi/cmd.data/wd.c (modified) (1 diff)

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

@@ -81 +81 @@
   memcpy (temp_header.buffer, buf[0].header.buffer, temp_header.size);
 
-  if (temp_header.Naxes) gfits_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);
+  } else {
+    gfits_modify (&temp_header, "BITPIX", "%d", 1, outBitpix);
+    gfits_modify (&temp_header, "BSCALE", "%lf", 1, outScale);
+    gfits_modify (&temp_header, "BZERO",  "%lf", 1, outZero);
+    gfits_modify (&temp_header, "UNSIGN", "%t", 1, outUnsign);
+  }
 
   if (Extend) {