Il Linguaggio Fortran 90/95

170 Array
FORALL (i=1:n-1)
FORALL (j=i+1:n)
a(i,j) = a(j,i)
END FORALL
END FORALL
assegna la trasposta della parte triangolare bassa di a alla parte triangolare alta.
Inoltre, un costrutto FORALL può includere un costrutto o un’istruzione WHERE, con il risultato
che ciascuna istruzione di un costrutto WHERE sono eseguite in sequenza. Come si esempio,
si osservi il seguente costrutto:
FORALL (i=1:n)
WHERE (a(i,:)==0) a(i,:)=i
b(i,:) = i/a(i,:)
END FORALL
In questo esempio, ciascun elemento nullo di a viene sostituito dal suo indice di riga e, una volta
completata questa operazione, a tutti gli elementi delle righe di b vengono assegnati i reciproci
dei corrispondenti elementi di a moltiplicati per il corrispondente indice di riga.
Oltre che il costrutto FORALL, il Fortran 95 prevede anche una istruzione FORALL, la cui
sintassi è la seguente:
FORALL (ind_1=tripl_1 [,...,espressione_logica]) assegnazione
in cui l’istruzione di assegnazione viene eseguita soltanto per quegli elementi che soddisfino i
parametri di controllo di FORALL.
Validi esempi di istruzioni FORALL sono:
FORALL (i=1:20, j=1:20) a(i,j) = 3*i + j**2
FORALL (i=1:100, j=1:100, (i>=j.AND.x(i,j)/=0)) x(i,j) = 1.0/x(i,j)
Di queste due istruzioni, la prima esegue l’assegnazione:
ai,j = 3 × i + j 2
∀ i, j ∈ {1, . . ., 20}
mentre la seconda sostituisce ciascun elemento non nullo al di sotto della diagonale principale
di x o sulla diagonale stessa con il suo reciproco.
3.15 Gestione di array di grandi dimensioni
Piuttosto che immagazzinare un array di enormi dimensioni, può essere talvolta conveniente la
scelta di ricalcolarne i valori degli elementi tutte le volte che servono. Questa scelta è senz’altro
infruttuosa per quanto concerne la velocità di esecuzione del programma ma potrebbe essere
vantaggiosa in termini di ingombro ”medio” di memoria.
Un’altra soluzione, più efficiente, al problema in esame è l’uso di strutture dati ”impaccate”.
Un esempio è rappresentato dalla gestione di matrici sparse le quali si incontrano assai spesso