1 files changed, 21 insertions, 0 deletions
diff --git a/sys/vops/lz/aselkr.x b/sys/vops/lz/aselkr.x
new file mode 100644
index 00000000..702000b3
--- /dev/null
+++ b/sys/vops/lz/aselkr.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ASELK -- Vector/constant select element.  The output vector is formed by
+# taking successive pixels from either of the input vector or a constant, based
+# on the value of the integer (boolean) selection vectors.  Used to implement
+# vector conditional expressions.
+
+procedure aselkr (a, b, c, sel, npix)
+
+real	a[ARB], b, c[ARB]
+int	sel[ARB]			# IF sel[i] THEN a[i] ELSE b
+int	npix
+int	i
+
+begin
+	do i = 1, npix
+	    if (sel[i] != 0)
+		c[i] = a[i]
+	    else
+		c[i] = b
+end