Il Linguaggio Fortran 90/95

1.8 Tipi di dati derivati 65
semplicemente nel nome del tipo derivato seguito dai valori delle componenti elencate nell’ordine
in cui sono state dichiarate nella definizione del tipo. Come ulteriore esempio, definito il tipo
persona al modo seguente:
TYPE persona
CHARACTER(LEN=15) :: nome
CHARACTER(LEN=15) :: cognome
INTEGER :: eta
CHARACTER :: sesso
CHARACTER(LEN=15) :: telefono
END TYPE persona
e dichiarati due oggetti di tipo persona:
TYPE(persona) :: pers1, pers2
queste due entità possono essere inizializzate come segue:
pers1 = persona(’Luke’,’Skywalker’,31,’M’,’323-6439’)
pers2 = persona(’Princess’,’Leila’,24,’F’,’332-3060’)
L’altra modalità illustrata per l’assegnazione di un valore ad un oggetto di tipo derivato è
quella specificata a mezzo di un selettore di componente, che consiste, come visto, nel nome
della variabile seguito dal simbolo di percentuale seguito a sua volta dal nome del componente.
Ad esempio, volendo modificare l’età di pers1 si può usare l’istruzione:
pers1%eta = 28
Il prossimo esempio ha lo scopo di illustrare ulteriormente entrambe le modalità si assegnazione:
PROGRAM assegn_strut
! Demo assegnazione di struttura
IMPLICIT NONE
INTEGER, PARAMETER :: lunghezza_nome = 18
TYPE :: isotopo ! Definizione di tipo derivato
INTEGER :: numero_di_massa
REAL :: abbondanza
END TYPE isotopo
TYPE :: elemento ! Definizione di tipo derivato
CHARACTER (LEN=lunghezza_nome) :: nome_elemento
CHARACTER (LEN=3) :: simbolo
INTEGER :: numero_atomico
REAL :: massa_atomica
TYPE (isotopo) :: isotopo_principale ! Tipo definito in precedenza
END TYPE elemento
TYPE(elemento) :: Carbonio, Temp_E ! Dichiarazione di tipo