blob: c17d5940121c8c4f27b63cc6c3ab77c6c7c19218 (
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
27
28
29
30
|
include <math/nlfit.h>
$if (datatype == r)
include "nlfitdefr.h"
$else
include "nlfitdefd.h"
$endif
# NLSTAT[RD] - Fetch an NLFIT real/double parameter
PIXEL procedure nlstat$t (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 ($INDEF$T)
}
end
|
