1! demonstrates basic direct access using variables for REC 2! pr14872 3 OPEN(UNIT=10,ACCESS='DIRECT',RECL=128) 4 DO I = 1,10 5 WRITE(10,REC=I,ERR=10)I 6 ENDDO 7 CLOSE(10) 8 OPEN(UNIT=10,ACCESS='DIRECT',RECL=128) 9 DO I = 1,10 10 READ(10,REC=I,ERR=10)J 11 IF (J.NE.I) THEN 12! PRINT*,' READ ',J,' EXPECTED ',I 13 CALL ABORT 14 ENDIF 15 ENDDO 16 CLOSE(10,STATUS='DELETE') 17 STOP 18 10 CONTINUE 19! PRINT*,' ERR= RETURN FROM READ OR WRITE' 20 CALL ABORT 21 END 22