Il Linguaggio Fortran 90/95

162 Array
con cui l’introduzione di ciascun valore deve essere seguito dalla pressione del tasto return (che
verrà semplicemente ignorata). Sempre con lo stesso criterio è possibile leggere gli elementi di
una sezione di array, ad esempio con istruzioni del tipo:
READ(*,*) c(::2,::2)
3.11 Array come componenti di tipi di dati derivati
Fra i componenti di un tipo di dati derivato è possibile avere uno o più array. Questa possibilità
può spesso servire a ridurre drasticamente il numero delle componenti scalari del tipo user
defined, come dimostra il seguente esempio:
TYPE studente
CHARACTER(LEN=15) :: nome, cognome
INTEGER, DIMENSION(30) :: esami
END TYPE studente
In questo record, l’arrayesami potrebbe contenere i voti di30 esami sostenuti da unostudente.
Chiaramente, è possibile dichiarare un intero gruppo di elementi di tipo studente, (ad esempio
per classificare il curriculum di tutti quanti gli iscritti ad un corso):
TYPE(studente), DIMENSION(50) :: iscritti
In questo caso, il nome ed il cognome dell’i_mo studente fra gli iscritti possono essere
facilmente estratti come:
iscritti(i)%nome
iscritti(i)%cognome
così come il voto del terzo esame da questi sostenuto può essere letto accedendo al seguente
componente:
iscritti(i)%voto(3)
Un vincolo che debbono rispettare gli array componenti di un tipo di dati derivato è il fatto
che essi possono essere soltanto array di forma esplicita aventi limiti costanti, oppure array di
forma rimandata (per la definizione di queste due forme di array si rimanda al capitolo 6).
Un’importante restrizione che si ha quando si estrae un componente di un oggetto di tipo
derivato avente array come componenti, è rappresentata dal fatto che al massimo uno degli
array abbia rango maggiore di zero. In altre parole, tutti gli array componenti, ad eccezione (al
massimo) di uno, devono presentarsi come variabili ”indiciate”. Ad esempio, è possibile scrivere:
iscritti%voto(i) = 28
per porre uguale a 28 il voto dell’i_mo esame di ciascun studente iscritto, ed è possibile
scrivere: