blob: d922e37f1b7f20413c3b772872dac1f43d84e995 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
integer function alldig (str)
integer str (100)
integer i
alldig = 0
if (.not.(str (1) .eq. -2))goto 23000
return
23000 continue
i = 1
23002 if (.not.(str (i) .ne. -2))goto 23004
if (.not.(.not.(48.le.str (i).and.str (i).le.57)))goto 23005
return
23005 continue
23003 i = i + 1
goto 23002
23004 continue
alldig = 1
return
end
|
