diff options
Diffstat (limited to 'pkg/xtools/inlfit/innlinitd.x')
| -rw-r--r-- | pkg/xtools/inlfit/innlinitd.x | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/pkg/xtools/inlfit/innlinitd.x b/pkg/xtools/inlfit/innlinitd.x new file mode 100644 index 00000000..87a82c91 --- /dev/null +++ b/pkg/xtools/inlfit/innlinitd.x @@ -0,0 +1,28 @@ +include "inlfitdef.h" + + +# IN_NLINIT -- Initialize (reinitialize) NLFIT descriptor. The new +# NLFIT descriptor is returned as a procedure argument. + +procedure in_nlinitd (in, nl) + +pointer in # INLFIT descriptor +pointer nl # NLFIT descriptor + +errchk nlinit(), nlfree() + +begin +# # Debug. +# call eprintf ("in_nlinit: in=%d, nl=%d\n") +# call pargi (in) +# call pargi (nl) + + # Free old NLFIT structure if any. + if (nl != NULL) + call nlfreed (nl) + + # Initialize new NLFIT structure. + call nlinitd (nl, IN_FUNC (in), IN_DFUNC (in), Memd[IN_PARAM (in)], + Memd[IN_DPARAM (in)], IN_NPARAMS (in), Memi[IN_PLIST (in)], + IN_NFPARAMS (in), IN_TOLD (in), IN_MAXITER (in)) +end |