Il Linguaggio Fortran 90/95

1.7 Tipi di dati parametrizzati 61
avrà parametro di kind pari a 3 se il processore fornisce una precisione decimale maggiore
per le costanti reali aventi kind uguale a 3 rispetto alle costanti reali con kind uguale a 4;
avrà parametro di kind pari a 4 se il processore fornisce una precisione decimale maggiore
per le costanti reali aventi kind uguale a 3 rispetto alle costanti reali con kind uguale a
4; avrà parametro di kind pari, indifferentemente, a 3 o a 4 se il processore fornisce la
stessa precisione decimale per le costanti reali con kind uguale a 3 e per quelle con kind
uguale a 4.
In ogni caso, per evitare queste complicazioni è sempre preferibile utilizzare, per formare una
costante complessa, due componenti reali aventi il medesimo parametro di kind.
Parametri di kind per il tipo LOGICAL
Anche per il tipo LOGICAL un compilatore può prevedere più di un valore per il parametro
di kind. Ad esempio, alcuni compilatori prevedono, oltre al tipo di default (che, tipicamente,
occupa 4 byte) almeno un altro tipo logico che permette di lavorare con valori ”compressi” ad
un byte soltanto.
Così come per i tipi numerici, anche per il tipo LOGICAL il valore del parametro di kind
segue la costante letterale ed è separata da essa da un underscore, come nel seguente esempio:
.TRUE. ! parametro di kind di default
.FALSE._5 ! parametro di kind pari a 5
Parametri di kind per il tipo CHARACTER
Su molte installazioni, oltre al tipo di caratteri di default (che, tipicamente, è l’insieme ASCII)
sono previsti altri kind che consentono di supportare, ad esempio, i caratteri degli alfabeti
stranieri. Un esempio di dichiarazione di variabile di tipo carattere parametrizzato è il seguente:
CHARACTER(LEN=5) :: str1
CHARACTER(LEN=5, KIND=1) :: str2
in cui la stringa str1 ha tipo di default mentre str2 ha parametro di kind pari a 1, il cui
significato dipende dal particolare compilatore.
Contrariamente a quanto avviene per tutti gli altri tipi di dati, per le costanti di tipo
carattere, il valore del parametro di kind precede il valore della costante, separato da esso da
un carattere underscore:
1_’aeiou’
La spiegazione di ciò risiede nel fatto che il processore necessita di sapere quale ”tipo” di caratteri
deve utilizzare prima di ”scrivere” la stringa. Ancora, la seguente espressione:
greek_αβγ