1 ! demonstrates basic direct access using variables for REC
3 OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
5 WRITE(10,REC=I,ERR=10)I
8 OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
10 READ(10,REC=I,ERR=10)J
12 ! PRINT*,' READ ',J,' EXPECTED ',I
18 ! PRINT*,' ERR= RETURN FROM READ OR WRITE'