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
|
integer function getccl (arg, i, pat, j)
integer arg (128), pat (128)
integer i, j
integer jstart, junk
integer addset
i = i + 1
if (.not.(arg (i) .eq. 126))goto 23000
junk = addset (110, pat, j, 128)
i = i + 1
goto 23001
23000 continue
junk = addset (91, pat, j, 128)
23001 continue
jstart = j
junk = addset (0, pat, j, 128)
call filset (93, arg, i, pat, j, 128)
pat (jstart) = j - jstart - 1
if (.not.(arg (i) .eq. 93))goto 23002
getccl = -2
goto 23003
23002 continue
getccl = -3
23003 continue
return
end
|
