blob: 3a74fa6f1537b6e22268cf01662f5fb19c5b1d09 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
$if (datatype == r)
include "nlfitdefr.h"
$else
include "nlfitdefd.h"
$endif
# NLPGET - Retreive parameter values
procedure nlpget$t (nl, params, nparams)
pointer nl # pointer to the nlfit structure
PIXEL params[ARB] # parameter array
int nparams # the number of the parameters
begin
nparams = NL_NPARAMS(nl)
call amov$t (PARAM(NL_PARAM(nl)), params, nparams)
end
|
