Initial commit

1 files changed, 31 insertions, 0 deletions

diff --git a/sys/osb/iscl32.c b/sys/osb/iscl32.c
new file mode 100644
index 00000000..75e51082
--- /dev/null
+++ b/sys/osb/iscl32.c
@@ -0,0 +1,31 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#define	import_spp
+#define import_knames
+#include <stdlib.h>
+#include <iraf.h>
+
+
+/* ISCL32 - Scale a pixel array stored as SPP chars to the desired type.
+ */
+ISCL32 (a, b, npix, bscale, bzero)
+XCHAR	*a;			/* input array			*/
+XCHAR	*b;			/* output array			*/
+XINT	*npix;			/* number of bytes to swap	*/
+XDOUBLE *bscale, *bzero;	/* scaling factors		*/
+{
+    int   i, pix;
+    int   *ip = (int *) a;
+    float *rp = (float *) calloc (*npix, sizeof (float));
+    float *tmp;
+
+    tmp = rp;
+    for (i=0; i < *npix; i++) {
+	pix = *ip;
+	*tmp = (float) (pix * (*bscale) + (*bzero));
+	tmp++, ip++;
+    }
+
+    memmove (b, rp, (*npix * sizeof (float)));
+}