Il Linguaggio Fortran 90/95

8.3 Gestione dei file ad accesso sequenziale 427
IMPLICIT NONE
INTEGER, PARAMETER :: end_of_file = -1
INTEGER, PARAMETER :: end_of_record = -2
! Att.ne: I valori precedenti sono, in generale,
! processor-dependent
CHARACTER(LEN=1) :: c
INTEGER :: count, ios
! Start
OPEN(UNIT=11,FILE="miofile.txt",STATUS="OLD",ACTION="READ")
count = 0
DO
READ(UNIT=11,FMT="(A)",ADVANCE="NO",IOSTAT=ios) c
IF (ios==end_of_record) THEN
CYCLE
ELSE IF(ios==end_of_file) THEN
EXIT
ELSE
count = count+1
END IF
END DO
PRINT*, "Il numero di caratteri nell file e’: ",count
END PROGRAM char_count
Un ulteriore esempio, che gestisce in forma più completa eventuali condizioni di errore, è
il seguente:
PROGRAM prova_lettura
!
! Scopo: leggere da file gli elementi di un array monodimensionale
! e stamparne i valori a video
!
IMPLICIT NONE
INTEGER , DIMENSION(10) :: a=0
INTEGER :: IO_stat_number=0
INTEGER :: i
OPEN(UNIT=1,FILE=’dati.dat’,STATUS=’OLD’,ACTION=’READ’)
DO i=1,10
READ(UNIT=1,FMT=10,IOSTAT=IO_stat_number) a(i)
10 FORMAT(I3)
IF (IO_stat_number==0) THEN
CYCLE
ELSE IF (IO_stat_number==-1) THEN
PRINT*," End-of-file raggiunto alla linea ",i
PRINT*," Controllare il file di input! "