Changeset 7306 for trunk/psModules/src/objects/pmSourceIO_CMP.c

Timestamp:

Jun 2, 2006, 2:40:46 PM (20 years ago)

Author:

magnier

Message:

cleaned up CMP header output code

File:

• trunk/psModules/src/objects/pmSourceIO_CMP.c (modified) (3 diffs)

trunk/psModules/src/objects/pmSourceIO_CMP.c

@@ -3 +3 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2006-05-27 02:33:29 $
+ *  @version $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-03 00:40:46 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -39 +39 @@
 
     int i, type, nSrc;
-    psMetadataItem *mdi;
+    // psMetadataItem *mdi;
     psF32 *PAR, *dPAR;
     float lsky = 0;
@@ -61 +61 @@
     psMetadataAdd (header, PS_LIST_TAIL, "NSTARS", PS_DATA_S32 | PS_META_REPLACE, "NUMBER OF STARS", nSrc);
 
-    // set NAXIS to 0 : CFITSIO requires isolated header to have NAXIS = 0
-    mdi = psMetadataLookup (header, "NAXIS");
-    mdi->data.S32 = 0;
-    mdi->type = PS_DATA_S32;
+    // MEF elements have XTENSION, not SIMPLE: remove this (replace with SIMPLE)
+    psMetadataRemoveKey (header, "XTENSION");
 
     // create file, write-out header
+    psMetadataAddS32 (header, PS_LIST_HEAD, "NAXIS", PS_META_REPLACE, "head data only", 0);
+    psMetadataAddBool (header, PS_LIST_HEAD, "SIMPLE", PS_META_REPLACE, "CMP file, not simple", false);
+
     psFits *fits = psFitsOpen (filename, "w");
-    psFitsWriteHeader(fits, header);
+    psFitsWriteBlank(fits, header);
     psFitsClose (fits);