blob: d96351c934cb4a74a5e940f02373d4c3f718d373 (
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
|
# NL_LIST -- Procedure to order the list used when the NLFIT structure
# is initialized.
procedure nl_list (list, nlist, nfit)
int list[ARB] # list
int nlist # number of elements in the list
int nfit # number of active list elments
int i, j, nfitp1, ifound
begin
nfitp1 = nfit + 1
do i = 1, nlist {
ifound = 0
do j = 1, nfit {
if (list[j] == i)
ifound = ifound + 1
}
if (ifound == 0) {
list[nfitp1] = i
nfitp1 = nfitp1 + 1
} else if (ifound > 1)
call error (0, "Incorrect parameter ordering in plist")
}
if (nfitp1 != (nlist + 1))
call error (0, "Incorrect parameter ordering in plist")
end
|
