1 files changed, 21 insertions, 0 deletions
diff --git a/pkg/xtools/icfit/icshow.x b/pkg/xtools/icfit/icshow.x
new file mode 100644
index 00000000..d39e85d5
--- /dev/null
+++ b/pkg/xtools/icfit/icshow.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"icfit.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, open()
+errchk	open, ic_fshow
+
+begin
+	fd = open (file, APPEND, TEXT_FILE)
+	IC_GT(ic) = gt
+	call ic_fshow (ic, fd)
+	call close (fd)
+end