Index: /trunk/psLib/src/image/psImage.c
===================================================================
--- /trunk/psLib/src/image/psImage.c	(revision 790)
+++ /trunk/psLib/src/image/psImage.c	(revision 791)
@@ -9,6 +9,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.17 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-05-26 19:28:57 $
+ *  @version $Revision: 1.18 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-05-26 22:55:46 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -520,4 +520,6 @@
     int         bitPix = 0;             /* FITS bitPix value */
     int         hduType = IMAGE_HDU;    /* the HDU type (image,table, etc.) */
+    double      bscale = 1.0;
+    double      bzero = 0.0;
 
     /* need a valid image to write */
@@ -537,9 +539,11 @@
         break;
     case PS_TYPE_S8:
-        bitPix = SBYTE_IMG;
+        bitPix = BYTE_IMG;
+        bzero = -128.0;
         datatype = TSBYTE;
         break;
     case PS_TYPE_U16:
-        bitPix = USHORT_IMG;
+        bitPix = SHORT_IMG;
+        bzero = 32768.0;
         datatype = TUSHORT;
         break;
@@ -549,5 +553,6 @@
         break;
     case PS_TYPE_U32:
-        bitPix = ULONG_IMG;
+        bitPix = LONG_IMG;
+        bzero = 2147483648.0;
         datatype = TULONG;
         break;
@@ -628,4 +633,9 @@
         }
 
+        // set the bscale/bzero
+        fits_write_key_dbl(fptr, "BZERO",bzero,5,"Pixel Value Offset",&status);
+        fits_write_key_dbl(fptr, "BSCALE",bscale,5,"Pixel Value Scale",&status);
+        fits_set_bscale(fptr,bscale,bzero,&status);
+
         if (extname != NULL) {
             /* create the extension for the Primary HDU */
@@ -649,4 +659,5 @@
     lastPixel[2] = z+1;
 
+
     if ( fits_write_subset(fptr, datatype, firstPixel, lastPixel, input->data.v, &status) != 0) {
         (void)fits_get_errstatus(status, fitsErr);
Index: /trunk/psLib/src/mathtypes/psImage.c
===================================================================
--- /trunk/psLib/src/mathtypes/psImage.c	(revision 790)
+++ /trunk/psLib/src/mathtypes/psImage.c	(revision 791)
@@ -9,6 +9,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.17 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-05-26 19:28:57 $
+ *  @version $Revision: 1.18 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-05-26 22:55:46 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -520,4 +520,6 @@
     int         bitPix = 0;             /* FITS bitPix value */
     int         hduType = IMAGE_HDU;    /* the HDU type (image,table, etc.) */
+    double      bscale = 1.0;
+    double      bzero = 0.0;
 
     /* need a valid image to write */
@@ -537,9 +539,11 @@
         break;
     case PS_TYPE_S8:
-        bitPix = SBYTE_IMG;
+        bitPix = BYTE_IMG;
+        bzero = -128.0;
         datatype = TSBYTE;
         break;
     case PS_TYPE_U16:
-        bitPix = USHORT_IMG;
+        bitPix = SHORT_IMG;
+        bzero = 32768.0;
         datatype = TUSHORT;
         break;
@@ -549,5 +553,6 @@
         break;
     case PS_TYPE_U32:
-        bitPix = ULONG_IMG;
+        bitPix = LONG_IMG;
+        bzero = 2147483648.0;
         datatype = TULONG;
         break;
@@ -628,4 +633,9 @@
         }
 
+        // set the bscale/bzero
+        fits_write_key_dbl(fptr, "BZERO",bzero,5,"Pixel Value Offset",&status);
+        fits_write_key_dbl(fptr, "BSCALE",bscale,5,"Pixel Value Scale",&status);
+        fits_set_bscale(fptr,bscale,bzero,&status);
+
         if (extname != NULL) {
             /* create the extension for the Primary HDU */
@@ -649,4 +659,5 @@
     lastPixel[2] = z+1;
 
+
     if ( fits_write_subset(fptr, datatype, firstPixel, lastPixel, input->data.v, &status) != 0) {
         (void)fits_get_errstatus(status, fitsErr);