Il Linguaggio Fortran 90/95

30 Tipi ed espressioni
Dal momento che il valore di una costante con nome deve essere valutato al tempo di
compilazione, le espressioni consentite per la sua definizione sono, in qualche modo, limitate.
Una espressione di inizializzazione è, infatti, una espressione costante in cui:
• L’operatore di elevamento a potenza deve avere un esponente intero
• Una funzione intrinseca di elemento deve avere argomenti e risultato di tipo INTEGER o
CHARACTER
• Delle funzioni di trasformazione, soltanto le procedure REPEAT, RESHAPE, TRANSFER, TRIM,
SELECTED_INT_KIND, SELECTED_REAL_KIND sono consentite
Nella definizione di una costante con nome è possibile utilizzare una espressione di inizializzazione
e la costante diventa definita con il valore dell’espressione secondo le regole dell’assegnazione
intrinseca. Quanto detto è illustrato dall’esempio che segue:
! costante con nome di tipo INTEGER
INTEGER, PARAMETER :: length=10, long=SELECTED_REAL_KIND(12)
! costante con nome di tipo REAL
REAL, PARAMETER :: lsq=length**2
! costante con nome di tipo array
REAL, DIMENSION(3), PARAMETER :: array=(/1.0, 2.0, 3.0/)
! costante con nome di tipo di dati defnito dall’utente
TYPE(miotipo), PARAMETER :: a=miotipo(1.0,5,"casa")
1.5.1 Espressioni aritmetiche
Tutti i calcoli effettuati da un programma Fortran vengono specificati attraverso istruzioni di
assegnazione il cui formato generale è il seguente:
variabile = espressione_aritmetica
L’esecuzione di una istruzione di questo tipo avviene calcolando prima il valore di espressione
aritmetica e poi memorizzando poi tale valore nella cella identificata dal nome variabile .
Si noti, tuttavia, che se il tipo dell’espressione non coincide con quello della variabile a
primo membro, allora il valore dell’espressione viene convertito al modo seguente:
• Se il tipo di variabile è INTEGER mentre il tipo di espressione è REAL allora la parte
decimale, incluso il punto, viene rimosso dando luogo ad un risultato intero.
• Se il tipo di variabile è REAL mentre il tipo di espressione è INTEGER allora al valore
(intero) del risultato viene aggiunto il punto decimale dando così luogo ad un valore reale.
A titolo di esempio si guardi il seguente frammento di programma: