blob: 04c8cf2712d858dd9b907c43ae1fcbfd28b0649f (
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 "nlfitdefr.h"
include <math/nlfit.h>
# NLSTATI - Fetch a NLFIT integer parameter
int procedure nlstati (nl, param)
pointer nl # pointer to NLFIT structure
int param # parameter to be fetched
begin
switch (param) {
case NLNPARAMS:
return (NL_NPARAMS(nl))
case NLNFPARAMS:
return (NL_NFPARAMS(nl))
case NLITMAX:
return (NL_ITMAX(nl))
case NLITER:
return (NL_ITER(nl))
case NLNPTS:
return (NL_NPTS(nl))
default:
return (INDEFI)
}
end
|
