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