From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/plio/plsslv.x | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 sys/plio/plsslv.x (limited to 'sys/plio/plsslv.x') 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 +include + +# 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 -- cgit