Changeset 28243 for trunk/ppTranslate/src/ppMopsWrite.c

Timestamp:

Jun 7, 2010, 9:45:30 AM (16 years ago)

Author:

Paul Price

Message:

Split output tables into .hdr and .psf parts (like SMF), and add detection efficiencies. Looks like it's working well now. Sent example to Larry for approval.

File:

• trunk/ppTranslate/src/ppMopsWrite.c (modified) (1 diff)

trunk/ppTranslate/src/ppMopsWrite.c

@@ -46 +46 @@
         ppMopsDetections *det = detections->data[i]; // Detections for extension
         psTrace("ppMops.write", 1, "Writing extension %d to %s", i, args->output);
-        if (!psFitsWriteTableAllColumns(fits, det->header, det->table, NULL)) {
-            psError(psErrorCodeLast(), false, "Unable to write extension %d", i);
+        psString hdrName = NULL, psfName = NULL, deteffName = NULL;
+        psStringAppend(&hdrName, "%s.hdr", det->component);
+        psStringAppend(&psfName, "%s.psf", det->component);
+        psStringAppend(&deteffName, "%s.deteff", det->component);
+
+        if (!psFitsWriteBlank(fits, det->header, hdrName)) {
+            psError(psErrorCodeLast(), false, "Unable to write header %d", i);
             return false;
         }
+        if (!psFitsWriteTableAllColumns(fits, det->psfHeader, det->table, psfName)) {
+            psError(psErrorCodeLast(), false, "Unable to write table %d", i);
+            return false;
+        }
+        if (det->deteffHeader && det->deteffTable &&
+            !psFitsWriteTableAllColumns(fits, det->deteffHeader, det->deteffTable, deteffName)) {
+            psError(psErrorCodeLast(), false, "Unable to write detection efficiency %d", i);
+            return false;
+        }
+        psFree(hdrName);
+        psFree(psfName);
+        psFree(deteffName);
     }
     psFitsClose(fits);