Il Linguaggio Fortran 90/95

34 Tipi ed espressioni
1/2 + 1./4.
fornisce il valore 0.25 (che coincide con il valore del secondo argomento della somma) in quanto
la prima operazione, avvenendo fra operandi interi, restituisce un valore intero, nella fattispecie
il valore 0. Se, invece, la prima operazione fosse stata di natura mista, come ad esempio:
1./2 + 1./4.
avrebbe avuto luogo una conversione automatica tale che il valore (reale) della prima operazione
sarebbe stato 0.5 e, dunque, il valore dell’intera espressione sarebbe stato 0.75, ben diverso
da quello fornito dall’espressione precedente.
Sia valori interi che valori reali possono essere combinati con dati di tipo complesso a formare
espressioni miste. Tali espressioni vengono valutate convertendo i dati interi e reali a formare
dati complessi con parte immaginaria nulla. Così, ad esempio, se z1 è il numero complesso
(x1,y1), ed r è un numero reale, l’espressione
r * z1
viene convertita in:
(r,0)*(x1,y1)
che verrà valutata come:
(r*x1,r*y1)
Allo stesso modo, se n è un intero, allora l’espressione:
n + z1
viene convertita in:
(REAL(n),0)+(x1,y1)
che verrà valutata come:
(REAL(n)+x1,y1)
Elevamento a potenza
Come regola generale, le espressioni miste dovrebbero sempre essere evitate in quanto subdole e,
spesso, non facili da trattare. L’unica eccezione a questa regola è rappresentata dall’elevamento
a potenza caratterizzata da una base reale e da un esponente intero. In effetti questa operazione,
contrariamente a quanto potrebbe sembrare, non è di tipo misto; di ciò ci si può facilmente
rendere conto considerando la seguente espressione:
INTEGER :: esponente
REAL :: base, risultato
risultato = base**esponente