diff options
Diffstat (limited to 'pkg/xtools/inlfit/innlinit.gx')
| -rw-r--r-- | pkg/xtools/inlfit/innlinit.gx | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/pkg/xtools/inlfit/innlinit.gx b/pkg/xtools/inlfit/innlinit.gx new file mode 100644 index 00000000..87c2aab1 --- /dev/null +++ b/pkg/xtools/inlfit/innlinit.gx @@ -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_nlinit$t (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 nlfree$t (nl) + + # Initialize new NLFIT structure. + call nlinit$t (nl, IN_FUNC (in), IN_DFUNC (in), Mem$t[IN_PARAM (in)], + Mem$t[IN_DPARAM (in)], IN_NPARAMS (in), Memi[IN_PLIST (in)], + IN_NFPARAMS (in), IN_TOL$T (in), IN_MAXITER (in)) +end |