blob: b5334b9f1cc70db9faa17075343c6708c21192d6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
integer function sdrop (from, to, chars)
integer from (100), to (100)
integer chars
integer len, start
integer ctoc, length, min0
len = length (from)
if (.not.(chars .lt. 0))goto 23000
sdrop=(ctoc (from, to, len + chars + 1))
return
23000 continue
start = min0 (chars, len)
sdrop=(ctoc (from (start + 1), to, len + 1))
return
23001 continue
end
|
