Lines Matching refs:io_unit

8   integer io_unit  variable
10   io_unit = 10
11   open (unit=io_unit,status='scratch',form='formatted')
12   write (io_unit, '(A)') "Line1"
13   write (io_unit, '(A)') "Line2"
14   write (io_unit, '(A)') "Line3"
15   rewind (io_unit)
16   read (io_unit,'(A)') str
18   read (io_unit,'()')
19   read (io_unit,'(A)') str
21   close(unit=io_unit)