blob: f9aaa9b4ddc4c5e3f3f93ab12d7746cce7df67d9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
integer function strim (str)
integer str (100)
integer lnb, i
lnb = 0
i = 1
23000 if (.not.(str (i) .ne. -2))goto 23002
if (.not.(str (i) .ne. 32 .and. str (i) .ne. 9))goto 23003
lnb = i
23003 continue
23001 i = i + 1
goto 23000
23002 continue
str (lnb + 1) = -2
strim=(lnb)
return
end
|
