blob: f70e98421ffc5af4c8ae967bfd66b01ddf93e839 (
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
|
integer function lookup (symbol, info, st)
integer symbol (100)
integer info (100)
integer st
integer mem( 1)
common/cdsmem/mem
integer i, nodsiz, kluge
integer stlu
integer node, pred
if (.not.(stlu (symbol, node, pred, st) .eq. 0))goto 23000
lookup = 0
return
23000 continue
nodsiz = mem (st)
i = 1
23002 if (.not.(i .le. nodsiz))goto 23004
kluge = node + 1 - 1 + i
info (i) = mem (kluge)
23003 i = i + 1
goto 23002
23004 continue
lookup = 1
return
end
|
