Il Linguaggio Fortran 90/95

64 Tipi ed espressioni
! Definizione di un tipo di dati derivato
TYPE :: obiettivo
CHARACTER(15) :: name ! nome del corpo celeste
REAL :: ra, dec ! coordinate celesti, in gradi
INTEGER :: time ! tempo di esposizione, in secondi
END TYPE obiettivo
! Dichiarazione di un oggetto di questo nuovo tipo di dati
TYPE(obiettivo) :: mio_obiettivo
Si noti la possibilità di ”mischiare” liberamente oggetti di tipo numerico e di tipo carattere
contrariamente a quanto accade per altre strutture dati come gli array. Naturalmente sarà
compito del compilatore quello di provvedere ad una idonea sistemazione fisica in memoria dei
diversi componenti per un più efficiente accesso ai registri.
Una caratteristica peculiare dei tipi di dati definiti dall’utente è la possibilità di creare
strutture ”complesse”, vale a dire un componente della struttura può, a sua volta, essere un
oggetto di un tipo derivato, come illustrato nel seguente esempio:
TYPE punto
REAL :: x, y
END TYPE punto
TYPE cerchio
TYPE (punto) :: centro
REAL :: raggio
END TYPE cerchio
TYPE (cerchio) :: c
Nelle righe precedenti si è definita una variabile c di tipo cerchio. Detta variabile ha formalmente
due componenti: il primo componente, centro, è esso stesso un tipo di dati derivato che
consiste in due componenti reali (x ed y), il secondo componente di c è una variabile ”atomica”
di tipo reale (raggio). A questa variabile c può essere assegnato un valore in uno dei due
possibili modi:
oppure:
c = cerchio(punto(0.,0.),1.)
c%centro%x = 0.
c%centro%y = 0.
c%raggio = 1.
In entrambi i casi, all’oggetto ”cerchio” c verranno assegnati un ”centro” (il punto (0.,0.))
ed un ”raggio” (di valore 1.) In particolare, la prima delle due modalità di assegnazione è
quella precedentemente definita come costruttore di struttura. Come si vede, essa consiste