blob: 87a82c9196c6f0e56b08f5574b67b083f1040f5e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
|
