1! pr14836 2 OPEN(UNIT=9, ACCESS='DIRECT', RECL=80, FORM='UNFORMATTED') 3 INQUIRE(UNIT=9,NEXTREC=NREC) 4 WRITE(UNIT=9,REC=5) 1 5 INQUIRE(UNIT=9,NEXTREC=NREC) 6! PRINT*,NREC 7 IF (NREC.NE.6) STOP 1 8 READ(UNIT=9,REC=1) MVI 9 INQUIRE(UNIT=9,NEXTREC=NREC) 10 IF (NREC.NE.2) STOP 2 11! PRINT*,NREC 12 CLOSE(UNIT=9,STATUS='DELETE') 13 END 14 15