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
|
integer function maksub (arg, from, delim, sub)
integer arg (128), delim, sub (128)
integer from
integer esc, type
integer i, j, junk
integer addset
j = 1
i = from
23000 if (.not.(arg (i) .ne. delim .and. arg (i) .ne. -2))goto 23002
if (.not.(arg (i) .eq. 38))goto 23003
junk = addset (-3, sub, j, 128)
junk = addset (0, sub, j, 128)
goto 23004
23003 continue
if (.not.(arg (i) .eq. 64 .and. type (arg (i + 1)) .eq. 48))goto 2
*3005
i = i + 1
junk = addset (-3, sub, j, 128)
junk = addset (arg (i) - 48, sub, j, 128)
goto 23006
23005 continue
junk = addset (esc (arg, i), sub, j, 128)
23006 continue
23004 continue
23001 i = i + 1
goto 23000
23002 continue
if (.not.(arg (i) .ne. delim))goto 23007
maksub = -3
goto 23008
23007 continue
if (.not.(addset (-2, sub, j, 128) .eq. 0))goto 23009
maksub = -3
goto 23010
23009 continue
maksub = i
23010 continue
23008 continue
return
end
|
