aboutsummaryrefslogtreecommitdiff
path: root/sys/vops/alim.gx
diff options
context:
space:
mode:
Diffstat (limited to 'sys/vops/alim.gx')
-rw-r--r--sys/vops/alim.gx28
1 files changed, 28 insertions, 0 deletions
diff --git a/sys/vops/alim.gx b/sys/vops/alim.gx
new file mode 100644
index 00000000..2e9cbf56
--- /dev/null
+++ b/sys/vops/alim.gx
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ALIM -- Compute the limits (minimum and maximum values) of a vector.
+
+procedure alim$t (a, npix, minval, maxval)
+
+PIXEL a[ARB], minval, maxval, value
+int npix, i
+
+begin
+ minval = a[1]
+ maxval = a[1]
+
+ do i = 1, npix {
+ value = a[i]
+ $if (datatype == x)
+ if (abs(value) < abs(minval))
+ minval = value
+ else if (abs(value) > abs(maxval))
+ maxval = value
+ $else
+ if (value < minval)
+ minval = value
+ else if (value > maxval)
+ maxval = value
+ $endif
+ }
+end