usign direct access, formatted file

usign direct access, formatted file

PROGRAM daf

IMPLICIT NONE

INTEGER :: i
INTEGER :: irec
CHARACTER(LEN = 40) :: line

OPEN (UNIT = 8, FILE = 'dirio.fmt', ACCESS = 'DIRECT', FORM = 'FORMATTED', STATUS = 'REPLACE', RECL = 40)

DO i = 1, 100
WRITE (UNIT = 8, FMT = '(A, I3, A)', REC = i) 'This is record ', i, '.'
END DO

WRITE (*, '(A)', ADVANCE = 'NO') ' Which record of between 1 and 100 would you like to see? '
READ (*, '(I3)') irec

READ (UNIT = 8, FMT = '(A)', REC = irec) line

WRITE (*, '(A,/,5X,A)') 'The record is : ', line
END PROGRAM daf

위 소스를 daf.f95로 저장

컴파일 및 프로그램 테스트