Commit f171dd4b authored by rtoy's avatar rtoy

o Forgot to initialize iunit with the desired unit numbers.

o Have the main program call this new routine.
parent 25f92b48
......@@ -81,8 +81,12 @@ c 410 format(i3)
subroutine subr5
integer iunit(5)
do 10 k = 1, 5
write(iunit(k), 9000) 'Unit ', k
iunit(k) = 5
10 continue
do 20 k = 1, 5
write(iunit(k), 9000) 'Unit ', k
20 continue
9000 format(1x, a10, i4)
end
......@@ -94,6 +98,7 @@ C main
CALL subr2
CALL subr3
CALL SUBR4
call subr5
STOP
END
C
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment