1 files changed, 24 insertions, 0 deletions
diff --git a/math/iminterp/msigeti.x b/math/iminterp/msigeti.x
new file mode 100644
index 00000000..5ff14bfc
--- /dev/null
+++ b/math/iminterp/msigeti.x
@@ -0,0 +1,24 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include "im2interpdef.h"
+include <math/iminterp.h>
+
+# MSIGETI -- Procedure to fetch an asi integer parameter
+
+int procedure msigeti (msi, param)
+
+pointer	msi		# interpolant descriptor
+int	param		# parameter to be fetched
+
+begin
+	switch (param) {
+	case II_MSITYPE:
+	    return (MSI_TYPE(msi))
+	case II_MSINSAVE:
+	    return (MSI_NXCOEFF(msi) * MSI_NYCOEFF(msi) + MSI_SAVECOEFF)
+	case II_MSINSINC:
+	    return (MSI_NSINC(msi))
+	default:
+	    call error (0, "MSIGETI: Unknown MSI parameter.")
+	}
+end