Lines Matching refs:iunit
15 integer iunit
18 iunit = 99
19 open (UNIT=iunit,FORM='unformatted',ACCESS='direct',RECL=strlen)
20 write (iunit, rec=1) 'ABCD'
21 read (iunit, rec=1) string
22 close (iunit, status = 'delete')
25 open (UNIT=iunit,FORM='unformatted',ACCESS='direct',STATUS='scratch',RECL=strlen)
26 write (iunit, rec=1) 'ABCD'
27 read (iunit, rec=1) string
28 close (iunit)