Il Linguaggio Fortran 90/95

66 Tipi ed espressioni
TYPE(isotopo) :: Temp_I = isotopo(999,999.9)
! start program Assign
READ(*,*) Temp_E
Carbonio = Temp_E
Carbonio%isotopo_principale = Temp_I
WRITE(*,*) Temp_E, Carbonio
STOP
END PROGRAM assegn_strut
Si noti che se una variabile di un tipo derivato è inclusa in una istruzione WRITE, i componenti
di questa variabile saranno stampati nello stesso ordine in cui sono stati dichiarati nella
definizione di tipo. Allo stesso modo, se una tale variabile è inserita in una istruzione READ, i
suoi componenti devono essere inseriti nel medesimo ordine previsto dalla definizione di tipo.
Ciò è particolarmente vero in presenza di istruzioni di input/output formattate. A titolo di
esempio, se pers1 è la variabile precedentemente dichiarata, le seguenti istruzioni:
WRITE(*,100) pers1
100 FORMAT(2(1X,A,/),1X,I2,/,1X,A,/,1X,A)
forniscono come output la seguente lista:
Luke
Skywalker
28
M
323-6439
Le variabili di un tipo di dati derivato si comportano esattamente come ogni altra variabile
definita in una unità di programma per cui possono essere inizializzate, modificate ed usate in
istruzioni di chiamata di procedura come parametri di scambio. Per quanto concerne la loro
inizializzazione, mentre il Fortran 90 consente soltanto l’inizializzazione dell’intera variabile
all’atto della sua dichiarazione, ad esempio:
TYPE :: mio_tipo
INTEGER :: m
INTEGER :: n
REAL :: x
END TYPE mio_tipo
TYPE(mio_tipo) :: mia_var=mio_tipo(5,10,3.14)
il Fortran 95 ha introdotto anche la possibilità di inizializzarne le componenti all’atto della
definizione di tipo. Così l’esempio precedente potrebbe essere riscritto in maniera perfettamente
equivalente come:
TYPE :: mio_tipo
INTEGER :: m=5 ! NB: solo Fortran 95