blob: c7710acc4158dcf88e0ed8d0b6396f019c63472f (
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 "nlfitdefd.h"
# NLEVAL -- Evaluate the fit at a point.
double procedure nlevald (nl, x, nvars)
pointer nl # nlfit descriptor
double 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
|
