Il Linguaggio Fortran 90/95

428 Operazioni di I/O su file
EXIT
ELSE IF (IO_stat_number>0 ) THEN
PRINT*," Dati non validi nel file alla linea ",i
PRINT*," Controllare il file di input! "
EXIT
END IF
END DO
DO i=1,10
PRINT* , " i = ",i," a(i) = ",a(i)
END DO
END PROGRAM prova_lettura
2. Generazione di un file sequenziale di tipo testo:
PROGRAM tabulazione
!
! Scopo del programma: tabellare la funzione esterna func(x)
! nell’intervallo x1