blob: 0d35237a68e86b2a15e8b6d180f36c9ec91efaea (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
integer function sdupl (str)
integer str (100)
integer mem( 60000)
common/cdsmem/mem
integer i
integer length
integer j
integer dsget
j = dsget (length (str) + 1)
sdupl = j
i = 1
23000 if (.not.(str (i) .ne. -2))goto 23002
mem (j) = str (i)
j = j + 1
23001 i = i + 1
goto 23000
23002 continue
mem (j) = -2
return
end
|
