Il Linguaggio Fortran 90/95

8.3 Gestione dei file ad accesso sequenziale 431
INTEGER :: key ! valore della chiave
CHARACTER(12) :: nome_input, nome_output ! nomi dei file
INTEGER, PARAMETER :: lunghezza_linea = 240
! massima lunghezza ammessa per un record
CHARACTER(lunghezza_linea) :: linea
! la linea letta di volta in volta
INTEGER :: istatus ! stato I/O
INTEGER :: i ! indice per ciclo interno
! *** SEZIONE ESECUTIVA
WRITE(*,*) ’Questo programma legge un file di testo, lo traduce secondo’
WRITE(*,*) ’il metodo di Giulio Cesare, e lo stampa su un altro file’
WRITE(*,100,ADVANCE=’NO’) ’Nome del file di input (da tradurre): ’
READ (*,100) nome_input
WRITE(*,100,ADVANCE=’NO’) ’Nome del file di output (tradotto): ’
READ (*,100) nome_output
WRITE(*,100,ADVANCE=’NO’) ’Chiave (intero positivo < 26): ’
READ (*,100) key
OPEN (UNIT=9,FILE=nome_input,STATUS=’OLD’,IOSTAT=istatus,ACTION=’READ’)
! apertura del file sorgente in lettura
IF (istatus==0) THEN
OPEN (UNIT=10,FILE=nome_output,STATUS=’REPLACE’,IOSTAT=istatus &
ACTION=’WRITE’)
! apertura del file destinazione in scrittura
lettura_riga: DO
READ (9,100,IOSTAT=istatus) linea ! Lettura di una linea da file
IF (istatus/=0) EXIT
elaborazione_carattere: DO i=1,LEN_TRIM(linea)
linea(i:i) = traduci(linea(i:i),key)
END DO elaborazione_carattere
WRITE(10,*) linea(1:LEN_TRIM(linea))
END DO lettura_riga
WRITE(*,*) ’Fine traduzione’
CLOSE(9)
CLOSE(10)
ELSE
WRITE(*,*) ’Il file ’, nome_input, ’non esiste’
END IF
STOP
100 FORMAT(A)
END PROGRAM cesare