Index: trunk/psLib/src/fits/psFitsImage.c
===================================================================
--- trunk/psLib/src/fits/psFitsImage.c	(revision 7161)
+++ trunk/psLib/src/fits/psFitsImage.c	(revision 7224)
@@ -7,6 +7,6 @@
  *  @author Robert DeSonia, MHPCC
  *
- *  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2006-05-22 22:38:27 $
+ *  @version $Revision: 1.6 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-05-26 00:48:20 $
  *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -331,6 +331,6 @@
     }
 
-    int chdu = psFitsGetExtNum(fits);
-    int hdus = psFitsGetSize(fits);
+    int chdu = psFitsGetExtNum(fits);   // Current HDU number
+    int hdus = psFitsGetSize(fits);     // Number of HDUs in file
     if (! after) {
         if (chdu == 0) {
@@ -346,5 +346,4 @@
         status = 0;
         fits_create_img(fits->fd, bitPix, naxis, naxes, &status);
-
     } else {
         fits_insert_img(fits->fd, bitPix, naxis, naxes, &status);
@@ -363,23 +362,6 @@
 
     if (header) {
-        // Update header with BITPIX, NAXIS[12], BSCALE, BZERO so we don't clobber the basic header
-        psMetadataAddS32(header, PS_LIST_TAIL, "BITPIX", PS_META_REPLACE, "Bits per pixel", bitPix);
-        psMetadataAddS32(header, PS_LIST_TAIL, "NAXIS",  PS_META_REPLACE, "Number of dimensions", naxis);
-        psMetadataAddS32(header, PS_LIST_TAIL, "NAXIS1", PS_META_REPLACE, "Number of columns", numCols);
-        psMetadataAddS32(header, PS_LIST_TAIL, "NAXIS2", PS_META_REPLACE, "Number of rows", numRows);
-        psMetadataAddF64(header, PS_LIST_TAIL, "BSCALE", PS_META_REPLACE, "Pixel value scale", 1.0);
-        psMetadataAddF64(header, PS_LIST_TAIL, "BZERO",  PS_META_REPLACE, "Pixel value offset", bZero);
-        if (extname && strlen(extname) > 0) {
-            psMetadataAddStr(header, PS_LIST_TAIL, "EXTNAME", PS_META_REPLACE, "Extenion Name", extname);
-        }
         psFitsWriteHeader(header, fits);
-    } else {
-        // Write the necessary headers manually
-        fits_write_key_dbl(fits->fd, "BZERO", bZero, 12, "Pixel Value Offset", &status);
-        fits_write_key_dbl(fits->fd, "BSCALE", 1.0, 12, "Pixel Value Scale", &status);
-        // Regrettably have to cast away "const" on extname, because CFITSIO is horrible
-        fits_write_key_str(fits->fd, "EXTNAME", (char *)extname, "Extension name", &status);
-    }
-
+    }
     if (input->parent == NULL) { // if no parent, assume that the image data is contiguous
         fits_write_img(fits->fd,
@@ -402,5 +384,5 @@
     }
 
-    if ( status != 0) {
+    if (status != 0) {
         char fitsErr[MAX_STRING_LENGTH];
         (void)fits_get_errstatus(status, fitsErr);