Repatch (from linux) of OSX IRAF

1 files changed, 52 insertions, 0 deletions

diff --git a/noao/imred/dtoi/hdicfit/hdicshow.x b/noao/imred/dtoi/hdicfit/hdicshow.x
new file mode 100644
index 00000000..521f04d3
--- /dev/null
+++ b/noao/imred/dtoi/hdicfit/hdicshow.x
@@ -0,0 +1,52 @@
+include	<pkg/gtools.h>
+include	"hdicfit.h"
+
+# IC_SHOW -- Show the values of the parameters.
+
+procedure ic_show (ic, file, gt)
+
+pointer	ic			# ICFIT pointer
+char	file[ARB]		# Output file
+pointer	gt			# GTOOLS pointer
+
+int	fd
+pointer	str
+int	open()
+long	clktime()
+errchk	open, malloc
+
+begin
+	fd = open (file, APPEND, TEXT_FILE)
+	call malloc (str, SZ_LINE, TY_CHAR)
+
+	call cnvtime (clktime(0), Memc[str], SZ_LINE)
+	call fprintf (fd, "\n# %s\n")
+	    call pargstr (Memc[str])
+
+	call gt_gets (gt, GTTITLE, Memc[str], SZ_LINE)
+	call fprintf (fd, "# %s\n")
+	    call pargstr (Memc[str])
+
+	call gt_gets (gt, GTYUNITS, Memc[str], SZ_LINE)
+	if (Memc[str] != EOS) {
+	    call fprintf (fd, "fit units = %s\n")
+	        call pargstr (Memc[str])
+	}
+
+	call ic_gstr (ic, "function", Memc[str], SZ_LINE)
+	call fprintf (fd, "function = %s\n")
+	    call pargstr (Memc[str])
+
+	call fprintf (fd, "order = %d\n")
+	    call pargi (IC_ORDER(ic))
+
+	call ic_gstr (ic, "transform", Memc[str], SZ_LINE)
+	call fprintf (fd, "transform = %s\n")
+	    call pargstr (Memc[str])
+
+	call fprintf (fd, "fog = %g\n")
+	    call pargr (IC_FOG(ic))
+
+	call mfree (str, TY_CHAR)
+	call close (fd)
+end