Changeset 12549 for trunk/psLib/src/fits/psFitsTable.c

Timestamp:

Mar 22, 2007, 11:40:47 AM (19 years ago)

Author:

magnier

Message:

adding user-definable fits->extword to psFits

File:

• trunk/psLib/src/fits/psFitsTable.c (modified) (4 diffs)

trunk/psLib/src/fits/psFitsTable.c

@@ -7 +7 @@
  *  @author Robert DeSonia, MHPCC
  *
- *  @version $Revision: 1.26 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2007-03-14 00:39:50 $
+ *  @version $Revision: 1.27 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2007-03-22 21:40:47 $
  *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -585 +585 @@
                         (char**)columnTypes->data, // format of the columns
                         NULL, // physical unit of columns
-                        (char*)extname, // extension name; casting away const because cfitsio is horrible
+                        NULL, // skip extension name: we set the by hand below
                         &status);
     } else {
@@ -605 +605 @@
                          (char**)columnTypes->data, // format of the columns
                          NULL, // physical unit of columns
-                         (char*)extname, // extension name; casting away const because cfitsio is horrible
+                         NULL, // skip extension name: we set this by hand below
                          0, &status);
     }
@@ -629 +629 @@
     }
 
+    // write the header, if any.
+    if (extname && strlen(extname) > 0) {
+        if (!psFitsSetExtName(fits, extname)) {
+            psError(PS_ERR_IO, false, "Unable to write FITS header extension name.\n");
+            psFree(colSpecsIter);
+            psFree(colSpecs);
+            return false;
+        }
+    }
 
     // cfitsio requires that we write the data by columns --- urgh!