Il Linguaggio Fortran 90/95

3.3 Uso degli array 129
arr=RESHAPE((/((i+j,i=1,3),j=1,2)/),SHAPE=(/3,2/),ORDER=(/2,1/))
allora il risultato sarebbe la creazione della matrice: arr = ⎣
⎡
2 3
4 3
4 5
3.3.3 Inizializzazione degli elementi di un array
Esattamente come avviene con le comuni variabili, prima di poter usare un array è necessario
inizializzare i suoi elementi. Se un array non viene inizializzato, il contenuto dei suoi elementi
risulta indefinito. Lo standard del linguaggio non definisce i valori degli elementi di un array
non inizializzato, sicché alcuni compilatori impostano automaticamente a zero gli elementi di
un tale array, altri li impostano con valori del tutto casuali (ad esempio i valori precedentemente
immagazzinati nei registri di memoria corrispondenti), altri ancora generano un errore al tempo
di esecuzione. A causa di queste differenze, un programma che sembri funzionare bene su un
processore potrebbe non funzionare su un altro sistema. Per ovviare ad una tale evenienza è
opportuno inizializzare i valori di un array prima di utilizzarlo.
Gli elementi di un array possono essere inizializzati in uno dei seguenti modi:
• Inizializzazione mediante istruzione di assegnazione.
• Inizializzazione attraverso l’istruzione di dichiarazione di tipo.
• Inizializzazione mediante un’istruzione READ.
Rimandando l’ultima modalità di inizializzazione al paragrafo relativo alle operazioni di I/O
con gli array, si descriveranno ora le prime due tecniche elencate.
Inizializzazione mediante istruzioni di assegnazione
I valori iniziali di un array possono essere assegnati durante la fase esecutiva del programma
utilizzando delle opportune istruzioni di assegnazione, un elemento alla volta mediante un ciclo
DO, oppure globalmente attraverso un costruttore di array. I due metodi sono esemplificati di
seguito:
REAL, DIMENSION(5) :: array1
REAL, DIMENSION(5) :: array2
...
DO i=1,5
array1(i)=i**2
END DO
...
array2=(/1,4,9,16,25/)
⎤
⎦