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

---
 sys/imio/impnl.gx | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 sys/imio/impnl.gx

(limited to 'sys/imio/impnl.gx')

diff --git a/sys/imio/impnl.gx b/sys/imio/impnl.gx
new file mode 100644
index 00000000..27acdfae
--- /dev/null
+++ b/sys/imio/impnl.gx
@@ -0,0 +1,31 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<imhdr.h>
+include	<imio.h>
+
+# IMPNL -- Put the next line to an image of any dimension or datatype.
+# This is a sequential operator.  The index vector V should be initialized 
+# before the first call to the first line to be written.  Each call increments 
+# the leftmost subscript by one, until V equals IM_LEN, at which time EOF
+# is returned.  Subsequent writes are ignored.
+
+int procedure impnl$t (imdes, lineptr, v)
+
+pointer	imdes
+pointer	lineptr				# on output, points to the pixels
+long	v[IM_MAXDIM]			# loop counter
+int	npix
+int	impnln()
+extern	imfls$t()
+errchk	impnln
+
+begin
+	if (IM_FLUSH(imdes) == YES)
+	    call zcall1 (IM_FLUSHEPA(imdes), imdes)
+
+	npix = impnln (imdes, lineptr, v, TY_PIXEL)
+	if (IM_FLUSH(imdes) == YES)
+	    call zlocpr (imfls$t, IM_FLUSHEPA(imdes))
+
+	return (npix)
+end
-- 
cgit