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
|
subroutine filset (delim, array, i, set, j, maxset)
integer i, j, maxset
integer array (100), delim, set (maxset)
integer esc
integer junk
external index
integer addset, index
integer digits(11)
integer lowalf(27)
integer upalf(27)
data digits(1)/48/,digits(2)/49/,digits(3)/50/,digits(4)/51/,digit
*s(5)/52/,digits(6)/53/,digits(7)/54/,digits(8)/55/,digits(9)/56/,d
*igits(10)/57/,digits(11)/-2/
data lowalf(1)/97/,lowalf(2)/98/,lowalf(3)/99/,lowalf(4)/100/,lowa
*lf(5)/101/,lowalf(6)/102/,lowalf(7)/103/,lowalf(8)/104/,lowalf(9)/
*105/,lowalf(10)/106/,lowalf(11)/107/,lowalf(12)/108/,lowalf(13)/10
*9/,lowalf(14)/110/,lowalf(15)/111/,lowalf(16)/112/,lowalf(17)/113/
*,lowalf(18)/114/,lowalf(19)/115/,lowalf(20)/116/,lowalf(21)/117/,l
*owalf(22)/118/,lowalf(23)/119/,lowalf(24)/120/,lowalf(25)/121/,low
*alf(26)/122/,lowalf(27)/-2/
data upalf(1)/65/,upalf(2)/66/,upalf(3)/67/,upalf(4)/68/,upalf(5)/
*69/,upalf(6)/70/,upalf(7)/71/,upalf(8)/72/,upalf(9)/73/,upalf(10)/
*74/,upalf(11)/75/,upalf(12)/76/,upalf(13)/77/,upalf(14)/78/,upalf(
*15)/79/,upalf(16)/80/,upalf(17)/81/,upalf(18)/82/,upalf(19)/83/,up
*alf(20)/84/,upalf(21)/85/,upalf(22)/86/,upalf(23)/87/,upalf(24)/88
*/,upalf(25)/89/,upalf(26)/90/,upalf(27)/-2/
23000 if (.not.(array (i) .ne. delim .and. array (i) .ne. -2))goto 23002
if (.not.(array (i) .eq. 64))goto 23003
junk = addset (esc (array, i), set, j, maxset)
goto 23004
23003 continue
if (.not.(array (i) .ne. 45))goto 23005
junk = addset (array (i), set, j, maxset)
goto 23006
23005 continue
if (.not.(j .le. 1 .or. array (i + 1) .eq. -2))goto 23007
junk = addset (45, set, j, maxset)
goto 23008
23007 continue
if (.not.(index (digits, set (j - 1)) .gt. 0))goto 23009
call dodash (digits, array, i, set, j, maxset)
goto 23010
23009 continue
if (.not.(index (lowalf, set (j - 1)) .gt. 0))goto 23011
call dodash (lowalf, array, i, set, j, maxset)
goto 23012
23011 continue
if (.not.(index (upalf, set (j - 1)) .gt. 0))goto 23013
call dodash (upalf, array, i, set, j, maxset)
goto 23014
23013 continue
junk = addset (45, set, j, maxset)
23014 continue
23012 continue
23010 continue
23008 continue
23006 continue
23004 continue
23001 i = i + 1
goto 23000
23002 continue
return
end
|
