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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
# ECF_GETI -- Get the value of an integer parameter.
int procedure ecf_geti (param)
char param[ARB] # ECF parameter
int i, strdic()
include "ecffit.com"
begin
i = strdic (param, ecfstr, SZ_LINE,
"|slope|offset|xorder|yorder|niterate|")
switch (i) {
case 1:
return (slope)
case 2:
return (offset)
case 3:
return (xorder)
case 4:
return (yorder)
case 5:
return (niterate)
default:
call error (0, "ecf_geti: Unknown parameter")
}
end
# ECF_GETS -- Get the value of a string parameter.
procedure ecf_gets (param, str, maxchar)
char param[ARB] # ECF parameter
char str[maxchar] # String
int maxchar # Maximum number of characters
int i, strdic()
include "ecffit.com"
begin
i = strdic (param, ecfstr, SZ_LINE, "|function|")
switch (i) {
case 1:
call strcpy (function, str, maxchar)
default:
call error (0, "ecf_gets: Unknown parameter")
}
end
# ECF_GETD -- Get the values of double valued fitting parameters.
double procedure ecf_getd (param)
char param[ARB] # ECF parameter
int i, strdic()
include "ecffit.com"
begin
i = strdic (param, ecfstr, SZ_LINE,
"|xmin|xmax|ymin|ymax|shift|rms|low|high|")
switch (i) {
case 1:
return (xmin)
case 2:
return (xmax)
case 3:
return (ymin)
case 4:
return (ymax)
case 5:
return (shift)
case 6:
return (rms)
case 7:
return (low)
case 8:
return (high)
default:
call error (0, "ecf_gets: Unknown parameter")
}
end
|
