Il Linguaggio Fortran 90/95

1.8 Tipi di dati derivati 67
INTEGER :: n=10 ! NB: solo Fortran 95
REAL :: x=3.14 ! NB: solo Fortran 95
END TYPE mio_tipo
TYPE(mio_tipo) :: mia_var
Chiaramente è possibile inizializzare anche soltanto alcune componenti, in maniera selettiva,
rimandando l’assegnazione delle altre componenti ad una fase successiva:
TYPE :: mio_tipo
INTEGER :: m=5 ! NB: solo Fortran 95
INTEGER :: n
REAL :: x=3.14 ! NB: solo Fortran 95
END TYPE mio_tipo
TYPE(mio_tipo) :: mia_var
...
mia_var%n = 10
Si osservi che per un oggetto di tipo derivato ”innestato” l’inizializzazione di un componente è
riconosciuta ad ogni livello. Ossia, considerate le seguenti definizioni di tipo:
TYPE :: entry
REAL :: value=2.5
INTEGER :: index
TYPE(entry), POINTER :: next=>NULL()
END TYPE entry
TYPE node
INTEGER :: counter
TYPE(entry) :: element
END TYPE node
e la dichiarazione:
TYPE(node) :: n
il componente n%element%value sarà inizializzato al valore 2.5
Si noti, in conclusione, che quando un compilatore alloca memoria per un oggetto di un
tipo di dati derivato, esso è, conformemente allo standard, non obbligato a riservare alle varie
componenti locazioni di memoria consecutive. Questa ”libertà” fu decisa per fare in modo
che lo standard del linguaggio consentisse ai compilatori concepiti per architetture parallele di
ottimizzare l’allocazione di memoria al fine di garantire le performance migliori in termini di
velocità di esecuzione. Tuttavia, esistono dei casi in cui un ordine ”stretto” delle componenti
è fondamentale. Un esempio è rappresentato dalla eventuale necessità di passare una variabile
di un tipo di dati derivato ad una procedura scritta in un altro linguaggio (ad esempio in
C). In questi casi, allora, è necessario ”forzare” il compilatore affinché esso riservi locazioni
di memoria contigue per le componenti del tipo. Ciò può essere fatto inserendo la speciale