blob: 8c7e70297cdbc4de7ba40146d03e7b7ce80a6a8b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
subroutine outnum (n)
integer n
integer chars (20)
integer i, m
m = iabs (n)
i = 0
23000 continue
i = i + 1
chars (i) = mod (m, 10) + 48
m = m / 10
23001 if (.not.(m .eq. 0 .or. i .ge. 20))goto 23000
23002 continue
if (.not.(n .lt. 0))goto 23003
call outch (45)
23003 continue
23005 if (.not.(i .gt. 0))goto 23007
call outch (chars (i))
23006 i = i - 1
goto 23005
23007 continue
return
end
|