blob: 4c68d865e20e940ffc3bd93f91c758e77f4ad632 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
include <math/nlfit.h>
include "nlfitdefr.h"
# NLEVAL -- Evaluate the fit at a point.
real procedure nlevalr (nl, x, nvars)
pointer nl # nlfit descriptor
real x[ARB] # x values
int nvars # number of variables
real zfit
begin
# Evaluate the function.
call zcall5 (NL_FUNC(nl), x, nvars, PARAM(NL_PARAM(nl)),
NL_NPARAMS(nl), zfit)
return (zfit)
end
|
