diff options
Diffstat (limited to 'pkg/xtools/inlfit/ingshowd.x')
| -rw-r--r-- | pkg/xtools/inlfit/ingshowd.x | 40 |
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 |