1 files changed, 19 insertions, 0 deletions
diff --git a/sys/osb/nmiupkd.x b/sys/osb/nmiupkd.x
new file mode 100644
index 00000000..35d16631
--- /dev/null
+++ b/sys/osb/nmiupkd.x
@@ -0,0 +1,19 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+
+# NMIUPKD -- Unpack a 64 bit IEEE floating array into an SPP array of the
+# indicated datatype.
+
+procedure nmiupkd (nmi, spp, nelems, spp_datatype)
+
+double	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 ieevupkd (nmi, spp, nelems)
+	if (spp_datatype != TY_DOUBLE)
+	    call achtd (spp, spp, nelems, spp_datatype)
+end