1 files changed, 29 insertions, 0 deletions
diff --git a/sys/gio/nspp/sysint/fulib.x b/sys/gio/nspp/sysint/fulib.x
new file mode 100644
index 00000000..1951f26c
--- /dev/null
+++ b/sys/gio/nspp/sysint/fulib.x
@@ -0,0 +1,29 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+
+# FULIB -- Print an error message processed by fortran routine uliber.
+
+procedure fulib (errcode, upkmsg, msglen)
+
+int	errcode
+char	upkmsg[ARB]		# unpacked string
+int	msglen			# number of chars in string
+
+pointer	sp, sppmsg
+
+begin
+	call smark (sp)
+	call salloc (sppmsg,  SZ_LINE, TY_CHAR)
+
+	# Construct error message string
+	call sprintf (Memc[sppmsg], SZ_LINE, "ERROR %d IN %s\n")
+	    call pargi (errcode)
+	    call pargstr (upkmsg)
+
+	# Call error with the constructed message
+	iferr (call error (errcode, Memc[sppmsg]))
+	    call erract (EA_WARN)
+	
+	call sfree (sp)
+end