1 files changed, 19 insertions, 0 deletions
diff --git a/sys/osb/nmiupkr.x b/sys/osb/nmiupkr.x
new file mode 100644
index 00000000..474662f5
--- /dev/null
+++ b/sys/osb/nmiupkr.x
@@ -0,0 +1,19 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+
+# NMIUPKR -- Unpack a 32 bit IEEE floating array into an SPP array of the
+# indicated datatype.
+
+procedure nmiupkr (nmi, spp, nelems, spp_datatype)
+
+real	nmi[ARB]		#I input NMI format array
+int	spp[ARB]		#O output SPP format array
+int	nelems			#I number of integers to be converted
+int	spp_datatype		#I SPP datatype code
+
+begin
+	call ieevupkr (nmi, spp, nelems)
+	if (spp_datatype != TY_REAL)
+	    call achtr (spp, spp, nelems, spp_datatype)
+end