blob: 8aa920619dd2b3c7e47388e4333c92778a3d4faf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
integer function ctoi(in, i)
integer in (100)
integer i
integer d
external index
integer index
integer digits(11)
data digits (1) /48/, digits (2) /49/, digits (3) /50/, digits (4)
* /51/, digits (5) /52/, digits (6) /53/, digits (7) /54/, digits (
*8) /55/, digits (9) /56/, digits (10) /57/, digits (11) /-2/
23000 if (.not.(in (i) .eq. 32 .or. in (i) .eq. 9))goto 23001
i = i + 1
goto 23000
23001 continue
ctoi = 0
23002 if (.not.(in (i) .ne. -2))goto 23004
d = index (digits, in (i))
if (.not.(d .eq. 0))goto 23005
goto 23004
23005 continue
ctoi = 10 * ctoi + d - 1
23003 i = i + 1
goto 23002
23004 continue
return
end
|
