Repatch (from linux) of OSX IRAF

1 files changed, 40 insertions, 0 deletions

diff --git a/pkg/xtools/inlfit/ingshowd.x b/pkg/xtools/inlfit/ingshowd.x
new file mode 100644
index 00000000..031ae3f3
--- /dev/null
+++ b/pkg/xtools/inlfit/ingshowd.x
@@ -0,0 +1,40 @@
+include	<pkg/inlfit.h>
+
+
+# ING_SHOW -- Show the values of all the user defined parameters that
+# can be changed with colon commands. The output can be any file.
+
+procedure ing_showd (in, file)
+
+pointer	in			# INLFIT pointer
+char	file[ARB]		# Output file
+
+int	fd
+int	open(), in_geti()
+double	in_getd
+errchk	open()
+
+begin
+	# Open output file.
+	if (file[1] == EOS)
+	    return
+	fd = open (file, APPEND, TEXT_FILE)
+
+	# Print parameters.
+	call fprintf (fd, "low_reject    %g\n")
+	    call pargd (in_getd (in, INLLOW))
+	call fprintf (fd, "high_reject   %g\n")
+	    call pargd (in_getd (in, INLHIGH))
+	call fprintf (fd, "nreject       %d\n")
+	    call pargi (in_geti (in, INLNREJECT))
+	call fprintf (fd, "grow          %g\n")
+	    call pargd (in_getd (in, INLGROW))
+	call fprintf (fd, "tol           %g\n")
+	    call pargd (in_getd (in, INLTOLERANCE))
+	call fprintf (fd, "maxiter       %d\n")
+	    call pargi (in_geti (in, INLMAXITER))
+	call fprintf (fd, "\n")
+
+	# Free memory and close file.
+	call close (fd)
+end