blob: 73661ce82726d6b690c06da68d55ee5b143c117a (
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
|
include <math/nlfit.h>
include "nlfitdefd.h"
# NLSTAT[RD] - Fetch an NLFIT real/double parameter
double procedure nlstatd (nl, param)
pointer nl # pointer to NLFIT structure
int param # parameter to be fetched
begin
switch (param) {
case NLSUMSQ:
return (NL_SUMSQ(nl))
case NLOLDSQ:
return (NL_OLDSQ(nl))
case NLTOL:
return (NL_TOL(nl))
case NLLAMBDA:
return (NL_LAMBDA(nl))
case NLSCATTER:
return (NL_SCATTER(nl))
default:
return (INDEFD)
}
end
|
