Changeset 6725 for branches/rel10_ifa/psModules/src/pslib/psAdditionals.c

Timestamp:

Mar 29, 2006, 10:55:05 AM (20 years ago)

Author:

magnier

Message:

added psFitsWriteHeaderNotImage

File:

• branches/rel10_ifa/psModules/src/pslib/psAdditionals.c (modified) (1 diff)

branches/rel10_ifa/psModules/src/pslib/psAdditionals.c

@@ -199 +199 @@
 
 }
+
+bool psFitsWriteHeaderNotImage (psFits *fits, psMetadata *header)
+{
+
+    int status = 0;
+    char fitsErr[1024];
+
+    psMetadataItem *mdi = NULL;
+    mdi = psMetadataLookup (header, "NAXIS");
+    if (mdi != NULL) {
+        mdi->data.S32 = 0;
+        mdi->type = PS_DATA_S32;
+    }
+
+    fits_create_img (fits->fd, SHORT_IMG, 0, NULL, &status);
+
+    if (status != 0) {
+        fits_get_errstatus (status, fitsErr);
+        psError (PS_ERR_IO, true, PS_ERRORTEXT_psFits_WRITE_FAILED, fitsErr);
+        exit (2);
+    }
+
+    psFitsWriteHeader (header, fits);
+
+    return true;
+}