Il Linguaggio Fortran 90/95

426 Operazioni di I/O su file
ACTION=’WRITE’,POSITION=’REWIND’)
OPEN(UNIT=17,FILE=’file3.txt’,STATUS=’OLD’,ACTION=’READWRITE’, &
POSITION=’APPEND’)
...
READ(UNIT=15,FMT=100,IOSTAT=stato) a, b, (c(i),i=1,40)
WRITE(UNIT=16,FMT=’(2(1X,F7.3))’,IOSTAT=stato,ADVANCE=’YES’) x, y
WRITE(17,*) i, j, k
Nel seguito si riportano alcuni esempi tipici di operazioni su file ad accesso sequenziale.
1. Lettura di un file sequenziale di tipo testo:
PROGRAM io_demo
INTEGER :: i, ios
CHARACTER(LEN=50) :: line
OPEN(UNIT=10,FILE="io_demo.f95",STATUS="OLD", &
ACTION="READ",FORM="FORMATTED",POSITION="REWIND")
i=0
PRINT*, "Testo del programma:"
DO
READ(UNIT=10, FMT="(A)",IOSTAT=ios) line
IF(ios==0) THEN ! Nessun problema
i = i+1
PRINT*, i,">",line,"