Repatch (from linux) of OSX IRAF

1 files changed, 31 insertions, 0 deletions

diff --git a/sys/imio/tf/impnlr.x b/sys/imio/tf/impnlr.x
new file mode 100644
index 00000000..c60c8631
--- /dev/null
+++ b/sys/imio/tf/impnlr.x
@@ -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 impnlr (imdes, lineptr, v)
+
+pointer	imdes
+pointer	lineptr				# on output, points to the pixels
+long	v[IM_MAXDIM]			# loop counter
+int	npix
+int	impnln()
+extern	imflsr()
+errchk	impnln
+
+begin
+	if (IM_FLUSH(imdes) == YES)
+	    call zcall1 (IM_FLUSHEPA(imdes), imdes)
+
+	npix = impnln (imdes, lineptr, v, TY_REAL)
+	if (IM_FLUSH(imdes) == YES)
+	    call zlocpr (imflsr, IM_FLUSHEPA(imdes))
+
+	return (npix)
+end