blob: 5b552cab30282c1cc9ca18618200e258def2d013 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
subroutine rmtabl (st)
integer st
integer mem( 1)
common/cdsmem/mem
integer i
integer walker, bucket, node
bucket = st
do 23000 i = 1, 43
bucket = bucket + 1
walker = mem (bucket)
23002 if (.not.(walker .ne. 0))goto 23003
node = walker
walker = mem (node + 0)
call dsfree (node)
goto 23002
23003 continue
23000 continue
23001 continue
call dsfree (st)
return
end
|
