Il Linguaggio Fortran 90/95

442 Operazioni di I/O su file
CHARACTER(LEN=80) :: cdata
INTEGER, PARAMETER :: in=20
OPEN(UNIT=in,FILE=’accounts’,STATUS=’OLD’,IOSTAT=error)
IF(error /= 0) THEN
PRINT*, "Errore durante l’apertura del file"
STOP
END IF
READ(UNIT=in,FMT=’(A)’) cdata
! Stampa il file interno "cdata" per mostrare come appare
PRINT*, cdata
! Sostituisce tutti i caratteri "$" con uno spazio bianco
DO k=1,80
IF(cdata(k:k)==’$’)THEN
cdata(k:k)=’ ’
END IF
END DO
! Ora assegna i valori letti come reali agli elementi dell’array money
READ(UNIT=cdata,FMT=’(10(1X,F4.2))’)money
! Stampa l’array money per mostrare come ha lavorato
PRINT*, money
END PROGRAM internal_file
Supponendo, ad esempio, che il file esterno accounts contenga la stringa:
1.52$3.50$2.11$5.25$4.02$1.25$3.50$2.04$5.55$1.30
l’output del programma sarebbe:
1.520000 3.500000 2.110000 5.250000 4.020000
1.250000 3.500000 2.040000 5.550000 1.300000