Il Linguaggio Fortran 90/95

8.4 Gestione dei file ad accesso diretto 437
OPEN(UNIT=12,FILE=’archivio’,STATUS=’OLD’,ACCESS=’DIRECT’, &
FORM=’UNFORMATTED’,RECL=120)
! Acquisizione dell’indirizzo del record da leggere
READ(*,*) pos
! Lettura del record
READ(UNIT=12,REC=pos) rad
! Elaborazione del record letto
...
CLOSE(UNIT=12,STATUS=’KEEP’)
3. Aggiornamento di un file ad accesso diretto:
CHARACTER(LEN=10) :: campo1
REAL :: campo2, campo3
INTEGER :: chiave
OPEN(UNIT=13,FILE=’esame’,STATUS=’OLD’,ACCESS=’DIRECT’, &
FORMAT=’UNFORMATTED’,RECL=150)
! Acquisizione dell’indirizzo del record da aggiornare...
READ(*,*) chiave
! ... e del valore del record da scrivere
READ(*,*) campo1
READ(*,*) campo2
! Aggiornamento del record
WRITE(UNIT=13,REC=matricola) campo1,campo2,campo3
CLOSE(UNIT=13,STATUS=’KEEP’)
E’ doveroso, in conclusione, far notare che i file ad accesso diretto non formattati aventi
record la cui lunghezza sia un multiplo intero della dimensione del settore di un particolare
computer rappresentano i file Fortran più efficienti per quel computer. Quanto asserito è
facilmente comprensibile se si pensa che:
• Essendo un file ad accesso diretto è possibile processarne un qualunque record direttamente.
• Essendo non formattato non saranno dedicate risorse di macchina alla conversione da o
verso un formato leggibile dall’utente umano.
• Poiché ciascun record ha una lunghezza proprio pari ad un settore del disco, ogni volta che
un record debba essere processato sarà necessario leggere o scrivere soltanto un settore. E’
chiaro che record più grandi o più piccoli la cui lunghezza non sia multipla della dimensione
del settore costringerebbero la testina di lettura/scrittura a muoversi a cavallo di due o
più settori per analizzare un unico record.
Dal momento che questi file sono così efficienti, molti grossi programmi Fortran sono sviluppati
per farne abbondante uso.