PROGRAM SEISMIC
IMPLICIT NONE
INTEGER I
INTEGER*4::SAMPLE_RATE
CHARACTER*80 INPUTFILENAME
CHARACTER*80 OUTPUTFILENAME
INPUTFILENAME='Z.SGY'
OPEN(9,FILE=INPUTFILENAME,ACCESS='DIRECT',FORM='BINARY',RECL=4)
DO I=800,805
READ(9,REC=I)SAMPLE_RATE
WRITE(*,*)i,SAMPLE_RATE
END DO
CLOSE(9)
END PROGRAM