Repatch (from linux) of OSX IRAF

1 files changed, 25 insertions, 0 deletions

diff --git a/sys/plio/plsslv.x b/sys/plio/plsslv.x
new file mode 100644
index 00000000..bb7b21cb
--- /dev/null
+++ b/sys/plio/plsslv.x
@@ -0,0 +1,25 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <plset.h>
+include	<plio.h>
+
+# PLSSLV -- Given two vectors (VS, VN) defining the starting coordinates and
+# size of an image section, initialize the "loop index" vector V, and the
+# loop-end vector VE.
+
+procedure plsslv (pl, vs, vn, v, ve)
+
+pointer	pl			#I mask descriptor
+long	vs[PL_MAXDIM]		#I vector coordinates of start of section
+long	vn[PL_MAXDIM]		#I vector size of section
+long	v[PL_MAXDIM]		#O vector for i/o (vector loop index)
+long	ve[PL_MAXDIM]		#O vector coordinates of end of section
+
+int	i
+
+begin
+	do i = 1, PL_NAXES(pl) {
+	     v[i] = vs[i]
+	    ve[i] = vs[i] + vn[i] - 1
+	}
+end