Il Linguaggio Fortran 90/95

212 Operazioni di I/O interattive
Si faccia però attenzione a non inserire nel file di input il nome di una variabile non
appartenente al gruppoNAMELIST, in quanto ciò provocherebbe un errore al tempo di esecuzione.
In una lista di input un valore può essere ripetuto utilizzando un opportuno fattore di
ripetizione (una costante intera senza segno seguita da un asterisco) inserito prima del valore
da ripetere. Ad esempio, la frase:
7*"Hello"
ha come effetto quello di assegnare la stringa Hello a sette elementi consecutivi di tipo
CHARACTER (potrebbero essere sette elementi consecutivi di un array o una lista di sette stringhe).
Un fattore di ripetizione non seguito da alcun valore indica un valore nullo multiplo ed il
valore delle corrispondenti variabili non sarà, pertanto, alterato. Al fine di chiarire quest’ultimo
concetto, si consideri il seguente esempio:
INTEGER, DIMENSION(102) :: vettore vettore = 10, 50*25, 50*, -101
vettore(42) = 63
Questo frammento di programma ha come effetto quello di assegnare il valore 10 al primo elemento
dell’array vettore, assegnare il valore 25 agli elementi dal secondo al cinquantunesimo,
lasciare inalterati i valori dal cinquantaduesimo fino al penultimo, assegnare il valore -101 all’ultimo
elemento dell’array. Infine il valore del quarantaduesimo elemento di vettore viene
aggiornato a 63.
Un’altra possibilità per realizzare una assegnazione di valore nullo ad un elemento di array
è quella di inserire, nella lista dei valori da assegnare ai componenti dell’array, due virgole
consecutive in corrispondenza del componente da lasciare inalterato. Ad esempio, data la
seguente definizione:
INTEGER, DIMENSION(5) :: array=0 NAMELIST/mialista/array,... ...
READ(*,NML=mialista)
se il file di input fosse:
&mialista array = 1,2,,4,5 ...
il valore di array sarebbe:
(1,2,0,4,5)
4.10 Non-advancing I/O
Le operazioni READ e WRITE su file ad accesso sequenziale sono per default di tipo advancing.
Questo significa che il file è automaticamente posizionato all’inizio del record successivo a quello
appena letto o scritto prima che il successivo trasferimento di dati abbia luogo, oppure alla fine
del record quando l’operazione di I/O è stata completata.
Esistono, tuttavia, situazioni in cui è conveniente leggere o scrivere solo parte di un record,
rimandando la lettura o la scrittura della restante parte. A tale scopo il Fortran 90/95 mette a