adding bare FITS file support

funcs/fimg-fits.c

@@ -0,0 +1,69 @@
+/*
+ *		FLOATIMG
+ *	import/export to/from FITS files 
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+
+#include  <fitsio.h>
+
+#include  "../floatimg.h"
+
+extern int		verbosity;
+
+/* --------------------------------------------------------------------- */
+int fimg_save_R_as_fits(FloatImg *src, char *outname, int flags)
+{
+fitsfile	*fptr;       		/* pointer to the FITS file */
+int		status, idx, sz;
+int		bitpix = FLOAT_IMG;
+
+long		naxis = 2;
+long		naxes[2];
+float		**array;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p '%s' %d )\n", __func__, src, outname, flags);
+#endif
+
+status = 0;
+
+remove(outname);               /* Delete old file if it already exists */
+if (fits_create_file(&fptr, outname, &status)) {
+	fits_report_error(stderr, status);
+	return -9;
+	}
+
+naxes[0] = src->width;		naxes[1] = src->height;
+
+array = calloc(src->height, sizeof(float *));
+
+if (verbosity) fimg_describe(src, "to be saved as fits");
+
+/* initialize pointers to the start of each row of the image */
+for( idx=0; idx<naxes[1]; idx++ ) {
+	/**** MAGIC CODE MUST COME HERE ****/
+	array[idx] = src->R + (idx*naxes[0]);
+	// fprintf(stderr, "   %6d   %p\n", idx, array[idx]);
+	}
+
+if ( fits_create_img(fptr,  bitpix, naxis, naxes, &status) ) {
+	fits_report_error(stderr, status);
+	return -10;
+	}
+
+sz = naxes[0]*naxes[1];
+if ( fits_write_img(fptr, TFLOAT, 1, sz, array[0], &status) ) {
+	fits_report_error(stderr, status);
+	return -10;
+	}
+
+if ( fits_close_file(fptr, &status) ) {
+	fits_report_error(stderr, status);
+	return -9;
+	}
+
+return 0;
+}
+/* --------------------------------------------------------------------- */