From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 noao/digiphot/photcal/mctable/mctindef.x | 40 ++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 noao/digiphot/photcal/mctable/mctindef.x

(limited to 'noao/digiphot/photcal/mctable/mctindef.x')

diff --git a/noao/digiphot/photcal/mctable/mctindef.x b/noao/digiphot/photcal/mctable/mctindef.x
new file mode 100644
index 00000000..f3e3427c
--- /dev/null
+++ b/noao/digiphot/photcal/mctable/mctindef.x
@@ -0,0 +1,40 @@
+include	"../lib/mctable.h"
+
+
+# MCT_INDEF - Fill table buffer with undefined values, acording to the
+# data type used.
+
+procedure mct_indef (table, buffer, npts)
+
+pointer	table			# table descriptor
+pointer	buffer			# buffer to clear
+int	npts			# number of untis to clear
+
+char	cval
+short	sval
+
+begin
+	# Clear according to data type.
+	switch (MCT_TYPE (table)) {
+	case TY_CHAR:
+	    cval = '\000'
+	    call amovkc (cval, Memc[buffer], npts)
+	case TY_SHORT:
+	    sval = INDEFS
+	    call amovks (sval, Mems[buffer], npts)
+	case TY_INT:
+	    call amovki (INDEFI, Memi[buffer], npts)
+	case TY_LONG:
+	    call amovkl (INDEFL, Meml[buffer], npts)
+	case TY_REAL:
+	    call amovkr (INDEFR, Memr[buffer], npts)
+	case TY_DOUBLE:
+	    call amovkd (INDEFD, Memd[buffer], npts)
+	case TY_COMPLEX:
+	    call amovkx (INDEFX, Memx[buffer], npts)
+	case TY_POINTER:
+	    call amovki (NULL, Memi[buffer], npts)
+	default:
+	    call error (0, "mct_indef: Unknown data type")
+	}
+end
-- 
cgit