blob: 9eb0ebade7c11198b5376e86935daf0844867f87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
subroutine dsinit (w)
integer w
integer mem( 1)
common/cdsmem/mem
integer t
if (.not.(w .lt. 2 * 2 + 2))goto 23000
call error (42Hin dsinit: unreasonably small memory size.)
23000 continue
t = 2
mem (t + 0) = 0
mem (t + 1) = 2 + 2
t = 2 + 2
mem (t + 0) = w - 2 - 1
mem (t + 1) = 0
mem (1) = w
return
end
|
