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로 저장
컴파일 및 프로그램 테스트
'Programming > Fortran' 카테고리의 다른 글
| Using pointers in procedures (0) | 2009.01.13 |
|---|---|
| Insertion sort using linked list (0) | 2009.01.10 |
| NAMELIST I/O (0) | 2009.01.06 |
| Access to command line arguments (0) | 2009.01.05 |
| Interface block을 사용하는 이유 (0) | 2009.01.04 |