blob: c6360017e48eb985585952ff4b2bf64145556ca0 (
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 "nlfitdefr.h"
# NLSTAT[RD] - Fetch an NLFIT real/double parameter
real procedure nlstatr (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 (INDEFR)
}
end
|
