diff options
| author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
|---|---|---|
| committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
| commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
| tree | 4464880c571602d54f6ae114729bf62a89518057 /pkg/xtools/inlfit/innlinit.gx | |
| download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz | |
Repatch (from linux) of OSX IRAF
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 |