Il Linguaggio Fortran 90/95

440 Operazioni di I/O su file
16/12/2001 18.27 1’600’000 myfile.fmt
16/12/2001 18.27 4’000’000 myfile.unf
2 File 5’600’000 byte
2 Directory 12’105’617’408 byte disponibili
Tuttavia, se da un lato i file ad accesso diretto non formattati risultano sempre più compatti e
veloci dei corrispondenti file formattati, è innegabile che hanno il grosso inconveniente di essere
system-dependent e, dunque, non portabili fra processori differenti.
8.5 File interni
I file finora trattati sono tutti ”esterni”, nel senso che sopravvivono all’esterno dell’ambiente
Fortran. Ciò che poteva essere ”interno” era il solo nome del file (l’unità logica) che doveva essere
associato al nome esterno (noto al sistema operativo) attraverso l’operazione di connessione.
Esiste, tuttavia, in Fortran la possibilità di definire un file interno, anch’esso individuato da
una sua unità logica, il quale può essere considerato come una zona di memoria di transito atta
alla conversione di dati interni. Un file interno coincide con una variabile (o con un array di
variabili) di tipo stringa di caratteri. Un file interno è sempre di tipo di testo (ossia formattato)
e può essere operato unicamente in maniera sequenziale. Non esistendo, per questo tipo di
file, la controparte ”esterna”, per essi non è possibile applicare l’operazione di connessione, il
riferimento al file avvenendo direttamente nella frase di I/O.
Se un tale file è una variabile stringa (o una sua sottostringa) oppure è un elemento di
array di tipo CHARACTER allora il file è costituito da un solo record; se, invece, esso un array di
stringhe esso è costituito da tanti record quanti sono gli elementi della variabile. Si noti che
una qualsiasi operazione di I/O su un file interno inizia sempre dal primo record.
L’impiego tipico dei file interni è quello di applicare ad una variabile di tipo stringa, trattata
alla stessa stregua di un file, gli algoritmi di conversione dei dati tipici delle operazioni di I/O.
In altri termini, una stringa di caratteri che rappresenti il valore di un dato (così come avviene
sui supporti di I/O) può essere trasformata in un valore numerico intero o reale e come tale
memorizzata in un’altra variabile secondo la forma di rappresentazione interna per essa prevista.
Utilizzando il meccanismo in esame, un qualsiasi record di input può essere letto con il
formato A e registrato, sottoforma di stringa, in una variabile successivamente riguardata come
file interno. Il valore di questa variabile stringa può essere successivamente esaminata sulla
base di una lista di descrittori di formato allo scopo di esaminare i diversi campi da cui essa è
costituita ed associare, a ciascun campo, la forma di rappresentazione interna desiderata.
Un esempio di utilizzo di file interno è rappresentato dal seguente frammento di programma:
CHARACTER(LEN=10) :: string
REAL :: pigreco
...
string = " 3.14 "
...
READ(string,*) pigreco