Il Linguaggio Fortran 90/95

52 Tipi ed espressioni
MODULE mymod
IMPLICIT NONE
INTEGER, PARAMETER :: single=1
INTEGER, PARAMETER :: double=2
END MODULE
PROGRAM prova
USE mymod
IMPLICIT NONE
REAL(KIND=single) :: x, y, z
REAL(KIND=double) :: a, b, c
...
x = 3.0_single + y/z
a = -1.5_double + b -2.0_double*c
...
END PROGRAM prova
In tal modo è possibile modificare i numeri di kind di un intero programma intervenendo su un
solo file.
Oltre che nelle istruzioni di dichiarazione (di variabile o di costante con nome), è possibile
specificare il tipo di kind anche per una costante letterale. A tale scopo è sufficiente aggiungere
alla costante il carattere underscore (”_”) seguito dal numero di kind. Esempi validi di costanti
reali parametrizzati sono i seguenti:
34._4
1234.56789_double
Chiaramente, la prima espressione è valida soltanto se KIND=4 è un tipo di dato reale valido
per il processore in uso, la seconda espressione è corretta soltanto se double è una costante
precedentemente definita con un numero di kind valido. Una costante senza identificatore di
tipo kind viene trattata come costante di tipo standard che in molti processori è una costante
in singola precisione.
Oltre che nel modo precedente, è possibile dichiarare una costante in doppia precisione nella
notazione scientifica utilizzando la lettera ”D” al posto della ”E” per specificare l’esponente della
costante:
3.0E0 costante in singola precisione
3.0D0 costante in doppia precisione
Per conoscere i numeri di kind utilizzati da un compilatore è possibile usare la funzione intrinseca
KIND la quale restituisce il numero del parametro di kind assegnato a una costante o
una variabile. Il più semplice esempio di utilizzo della funzione KIND è quello di determinare
i numeri di kind associati alle variabili in singola e in doppia precisione su una particolare
installazione: