blob: aaf0f0604ffb84108946fc0015e6d76fa9abec1c (
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
27
|
subroutine putstr (str, w, fd)
integer str (100)
integer w
integer fd
integer length
integer i, len
len = length (str)
i = len + 1
23000 if (.not.(i .le. w))goto 23002
call putch (32, fd)
23001 i = i + 1
goto 23000
23002 continue
i = 1
23003 if (.not.(i .le. len))goto 23005
call putch (str (i), fd)
23004 i = i + 1
goto 23003
23005 continue
i = (-w) - len
23006 if (.not.(i .gt. 0))goto 23008
call putch (32, fd)
23007 i = i - 1
goto 23006
23008 continue
return
end
|
