blob: e2b04b7319c44515e9fbc471f9252a4b00234067 (
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
|
include <math/nlfit.h>
# NLERRMSG -- Convert NLFIT error code into an error message.
procedure nlerrmsg (ier, errmsg, maxch)
int ier # NLFIT error code
char errmsg[maxch] # output error message
int maxch # maximum number of chars
begin
switch (ier) {
case DONE:
call strcpy ("Solution converged", errmsg, maxch)
case SINGULAR:
call strcpy ("Singular matrix", errmsg, maxch)
case NO_DEG_FREEDOM:
call strcpy ("Too few points", errmsg, maxch)
case NOT_DONE:
call strcpy ("Solution did not converge", errmsg, maxch)
default:
call strcpy ("Unknown error code", errmsg, maxch)
}
end
|
