728x90
반응형
IOSTAT값은 end-of-file condition, end-of-record condition 또는 입력/출력 명령문 중에 오류 조건이 발생하는 경우 IOSTAT= 지정자의 변수에 지정된 값입니다. IOSTAT= 지정자는 다음 유형의 오류 조건을 보고합니다. 입력 또는 출력 명령문이 성공하면 IOSTAT 값은 0입니다.
PROGRAM READING
CHARACTER*80 JNAME, AUX
REAL*8 KI, DCRMAX, TIME, DCRACK
INTEGER KINC, ELEM, IPT, EOF
C Read file with 3 rows
OPEN(10, FILE='DATA.txt', STATUS='OLD')
C READ(10, *) AUX, JNAME
READ(10, '(16X, A)') JNAME
READ(10, '(16X, F)') KI
READ(10, '(16X, F)') DCRMAX
CLOSE(10)
C PRINT*, '###' // TRIM(JNAME) // '###'
C PRINT*, KI, DCRMAX
C Read file with multiple lines
OPEN(11, FILE='data_table.txt', STATUS='OLD')
C Skip first line
READ(11, *, IOSTAT=EOF) AUX
C Read lines iteratively
DO WHILE (EOF .GE. 0)
READ(11, *, IOSTAT=EOF) TIME, KINC, DCRACK, ELEM, IPT
END DO
CLOSE(11)
PRINT*, TIME, KINC, DCRACK, ELEM, IPT
END
728x90
반응형
'Programing > Fortran' 카테고리의 다른 글
문자를 정수로 변경 / 정수를 문자로 변경 (0) | 2024.01.09 |
---|---|
Fortran: 동등성(Equivalence) (1) | 2024.01.04 |
Fortran: Strings & Files (0) | 2024.01.02 |
Fortran: Arrays & Primes (0) | 2024.01.02 |