From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/xtools/inlfit/ingshowd.x | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 pkg/xtools/inlfit/ingshowd.x (limited to 'pkg/xtools/inlfit/ingshowd.x') 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 + + +# 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 -- cgit