Changeset 25022 for branches/eam_branches/20090715/psLib/src/fits/psFitsImage.c

Timestamp:

Aug 7, 2009, 12:45:24 PM (17 years ago)

Author:

eugene

Message:

update from mainline

Location:

branches/eam_branches/20090715

Files:

• . (modified) (1 prop)
• psLib/src/fits/psFitsImage.c (modified) (5 diffs)

branches/eam_branches/20090715/psLib/src/fits/psFitsImage.c

@@ -439 +439 @@
 
     p_psFitsReadInfo *info = p_psFitsReadInfoAlloc(fits, region, z);
+    if (!info) {
+        psError(PS_ERR_IO, false, "Unable to read FITS information");
+        return NULL;
+    }
 
     // Size of image
@@ -612 +616 @@
     }
 
+    bool createPHU = false;             // Are we creating a PHU?
+
     // Create the image HDU
     int hdus = psFitsGetSize(fits);     // Number of HDUs in file
@@ -617 +623 @@
         // We're creating the first image
         fits_create_img(fits->fd, bitPix, naxis, naxes, &status);
+        createPHU = true;
     } else {
         if (!after) {
@@ -623 +630 @@
                 // Set status to signal fits_insert_img to insert a new primary HDU
                 status = PREPEND_PRIMARY;
+                createPHU = true;
             } else {
                 // Move back one to perform an insert after the previous HDU
@@ -637 +645 @@
 
     // write the header, if any.
-    if (header && !psFitsWriteHeader(fits, header)) {
+    if (header && !psFitsWriteHeaderImage(fits, header, createPHU)) {
         psError(PS_ERR_IO, false, "Unable to write FITS header.\n");
         success = false;