Il Linguaggio Fortran 90/95

436 Operazioni di I/O su file
• Nelle operazioni di ingresso, la lista di input non deve specificare più valori (o caratteri) di
quanti stabiliti dalla specificazione della lunghezza del record. Nel caso, invece, in cui (per
file formattati) il numero di caratteri prodotti in input siano inferiori alla specificazione
della lunghezza del record, la restante parte del record viene completata con spazi bianchi
a meno che non sia stato inserito lo specificatore PAD=’NO’ nella lista di OPEN, nel qual
caso il comportamento adottato può variare da processore a processore.
Si riportano di seguito, in forma schematica, alcuni esempi di operazioni tipiche su file ad
accesso diretto:
1. Generazione di un file ad accesso diretto di tipo non formattato:
PROGRAM genera_data_base
TYPE studente
CHARACTER(LEN=10) :: nome
CHARACTER(LEN=10) :: cognome
INTEGER :: media_voti
END TYPE studente
TYPE(studente) :: elem
INTEGER :: matr ! indirizzo del record da inserire
LOGICAL :: finito=.FALSE.
CHARACTER(LEN=1) :: risp
OPEN(UNIT=11,FILE=’pagella’,STATUS=’NEW’,ACCESS=’DIRECT’, &
FORM=’UNFORMATTED’,RECL=150)
DO WHILE(.NOT.finito)
! Acquisizione dell’indirizzo del record da inserire...
READ(*,*) matricola
! ... e del valore del record fa scrivere
WRITE(*,100,ADVANCE=’NO’) "Nome: "; READ(*,*) elem%nome
WRITE(*,100,ADVANCE=’NO’) "Cognome: "; READ(*,*) elem%cognome
WRITE(*,100,ADVANCE=’NO’) "Media: "; READ(*,*) elem%media_voti
100 FORMAT(1X,A)
! Scrittura del record
WRITE(UNIT=11,REC=matricola) elem%nome,elem%cognome,elem%media_voti
! Aggiornamento della condizione logica
WRITE(*,100,ADVANCE=’NO’) "Finito? (S/N): "; READ(*,*) risp
IF(risp==’S’.OR.rips==’s’) finito=.TRUE.
END DO
CLOSE(UNIT=11,STATUS=’KEEP’)
END PROGRAM genera_data_base
2. Ricerca di un record per indirizzo in un file ad accesso diretto:
COMPLEX :: rad ! elemento del file da ispezionare
INTEGER :: pos ! indirizzo del record da trovare