Il Linguaggio Fortran 90/95

8.3 Gestione dei file ad accesso sequenziale 429
100 FORMAT(2(1X,’F7.3,’|’))
CLOSE(11,STATUS=’KEEP’)
END PROGRAM tabulazione
!
FUNCTION func(x)
IMPLICIT NONE
REAL :: func
REAL, INTENT(IN) :: x
func=2.0*sin(x)-1.5
END FUNCTION func
3. Riproduzione di un file sequenziale di tipo testo:
PROGRAM copia
IMPLICIT NONE
REAL :: x,y,z
INTEGER :: code
OPEN(UNIT=11,FILE="source.txt",POSITION="REWIND")
OPEN(UNIT=12,FILE="target.txt",POSITION="REWIND")
DO
READ(11,*,IOSTAT=code) x,y,z
IF(code==0) THEN
WRITE(12,*) x,y,z
ELSE IF(code>0)
WRITE(*,*) "Riscontrata una condizione di errore"
WRITE(*,*) "Codice dell’errore: ", code
STOP
ELSE IF(code