blob: 92d5fb37a6181af88cf1f0540139e9a8b3031582 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
subroutine delete (symbol, st)
integer symbol (100)
integer st
integer mem( 1)
common/cdsmem/mem
integer stlu
integer node, pred
if (.not.(stlu (symbol, node, pred, st) .eq. 1))goto 23000
mem (pred + 0) = mem (node + 0)
call dsfree (node)
23000 continue
return
end
|
