2 ! inquire lastrec not correct when two records written
3 ! with one write statement
4 OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120)
6 WRITE(UNIT=10,REC=1,FMT=100)1
7 INQUIRE(UNIT=10,NEXTREC=J)
9 ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2'
13 WRITE(UNIT=10,REC=2,FMT=200)2,3
14 INQUIRE(UNIT=10,NEXTREC=J)
16 ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'