diff options
Diffstat (limited to 'pkg/xtools/inlfit/ingvshowr.x')
| -rw-r--r-- | pkg/xtools/inlfit/ingvshowr.x | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/pkg/xtools/inlfit/ingvshowr.x b/pkg/xtools/inlfit/ingvshowr.x new file mode 100644 index 00000000..aed987ce --- /dev/null +++ b/pkg/xtools/inlfit/ingvshowr.x @@ -0,0 +1,34 @@ +include <pkg/inlfit.h> + + +# ING_VSHOW -- Show fit parameters in verbose mode on the screen. + +procedure ing_vshowr (in, file, nl, x, y, wts, names, npts, nvars, len_name, + gt) + +pointer in # INLFIT pointer +char file[ARB] # Output file name +pointer nl # NLFIT pointer +real x[ARB] # Ordinates (npts * nvars) +real y[ARB] # Abscissas +real wts[ARB] # Weights +char names[ARB] # Object ids +int npts # Number of data points +int nvars # Number of variables +int len_name # Length of id name +pointer gt # Graphics tools pointer + +begin + # Print the title. + call ing_title (in, file, gt) + + # Do the standard ing_show option. + call ing_showr (in, file) + + # Print the error analysis information. + call ing_errorsr (in, file, nl, x, y, wts, npts, nvars) + + # Print the results. + call ing_resultsr (in, file, nl, x, y, wts, names, npts, nvars, + len_name) +end |