Il Linguaggio Fortran 90/95

164 Array
INTEGER :: numero_atomico
REAL :: massa_atomica
END TYPE elemento_chimico
TYPE(elemento_chimico), DIMENSION(numero_elementi) :: tavola_periodica = &
elemento_chimico("xxx","X",0,0.0)
INTEGER :: loop
! start
tavola_periodica(1) = elemento_chimico("Idrogeno","H",1,1.01)
tavola_periodica(2) = elemento_chimico("Elio","He",2,4.00)
! ...
DO loop = 1,numero_elementi
WRITE(*,*) tavola_periodica(loop)
END DO
STOP
END PROGRAM chimica
Il precedente programma definisce una struttura di nome elemento_chimico avente due componenti
letterali atte ad ospitare il nome ed il simbolo chimico di un elemento, e due componenti
numeriche atte ad ospitare il numero atomico e la massa atomica. Quindi, viene dichiarato l’array
tavola_periodica di 109 elementi (tanti essendo gli elementi chimici presenti in natura) di
tipo elemento_chimico e, infine, viene avviata una fase di immagazzinamento dei dati relativi
agli elementi chimici e la loro successiva stampa a video.
Si guardi, ora, questa definizione di tipo:
TYPE triplet
REAL :: u
REAL, DIMENSION(3) :: du
REAL, DIMENSION(3,3) :: d2u
END TYPE triplet
le cui le componenti possono essere pensate, ad esempio, come il valore di una funzione scalare
tridimensionale (u), la sua derivata prima (du) e la sua derivata seconda (d2u), rispettivamente.
Con la seguente dichiarazione:
TYPE(triplet) :: t
TYPE(triplet), DIMENSION(10,10,10) :: a
t%u rappresenterà un valore reale; t%du un array di elementi t%du(1), t%du(2) e t%du(3);
t%d2u, infine, sarà un array bidimensionale di elementit%d2u(i,j). Allo stesso modo, l’elemento
a(1,2,5) rappresenta un oggetto di tipo triplet mentre l’espressione a(1,2,5)%d2u(1,2)
si riferisce all’elemento (1,2) dell’array d2u, secondo campo dell’oggetto triplet a sua volta
elemento (1,2,5) dell’array a.