blob: 2ee865625f8d232c18d462221b407277331c11d6 (
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
29
30
31
32
33
34
|
include "nlfitdefd.h"
# NLZERO -- Zero the accumulators and reset the fitting parameter values to
# their original values set by nlinit().
procedure nlzerod (nl)
pointer nl # pointer to nl fitting structure
int nparams # number of parameters
int nfparams # number of fitted parameters
begin
# Get number of parameters and fitting parameters.
nparams = NL_NPARAMS(nl)
nfparams = NL_NFPARAMS(nl)
# Clear temporary array space.
call aclrd (ALPHA(NL_ALPHA(nl)), nfparams * nfparams)
call aclrd (COVAR(NL_COVAR(nl)), nfparams * nfparams)
call aclrd (CHOFAC(NL_CHOFAC(nl)), nfparams * nfparams)
call aclrd (BETA(NL_BETA(nl)), nfparams)
# Clear space for derivatives and trial parameter vectors.
call aclrd (DERIV(NL_DERIV(nl)), nparams)
call aclrd (TRY(NL_TRY(nl)), nparams)
# Reset parameters.
call amovd (OPARAM(NL_OPARAM(nl)), PARAM(NL_PARAM(nl)), nparams)
call aclrd (DPARAM(NL_DPARAM(nl)), nparams)
NL_SCATTER(nl) = double(0.0)
end
|
