Il Linguaggio Fortran 90/95

58 Tipi ed espressioni
Se non è disponibile, per la specifica implementazione, un modello avente la precisione
(minima) specificata, la funzione SELECTED_INT_KIND restituirà valore -1 e ogni dichiarazione
che usi quel parametro di kind genererà un errore al tempo di compilazione.
Ad esempio, l’espressione:
SELECTED_INT_KIND(2)
definisce un tipo di intero corrispondente alla rappresentazione di kind capace di esprimere
valori compresi nell’intervallo −10 2 ÷ 10 2 . Un esempio appena più complesso è il seguente:
INTEGER :: short, medium, long, toolong
PARAMETER (short=SELECTED_INT_KIND(2), medium=SELECTED_INT_KIND(4), &
long=SELECTED_INT_KIND(10), toolong=SELECTED_INT_KIND(100))
INTEGER(short) :: a, b, c
INTEGER(medium) :: d, e, f
INTEGER(long) :: g, h, i
INTEGER(toolong) :: l, m, n
Le precedenti dichiarazioni specificano che la precisione dovrebbe essere almeno:
• short: (−10 2 , 10 2 )
• medium: (−10 4 , 10 4 )
• long: (−10 10 , 10 10 )
• toolong: (−10 100 , 10 100 )
Le costanti di un tipo di kind selezionato sono denotate aggiungendo un underscore (”_”)
seguito dal numero di kind o, meglio, dal nome che (eventualmente) lo identifica:
100_2
1238_4
1050_short
54321_long
Chiaramente, ad esempio, l’espressione 1050_short potrebbe non essere valida ove mai lo
specificatore KIND=short non fosse capace di rappresentare numeri maggiori di 1000.
Dal momento che spesso tutti gli interi di un programma (o buona parte di essi) si caratterizzano
per il medesimo valore del parametro di kind, risulta più efficiente confinare la definizione
di tale parametro all’interno di un modulo che sia reso disponibile a tutte le procedure che
dichiarino tali interi. In tal modo, una eventuale variazione del valore di questo parametro nel
solo file contenente il modulo avrà effetto ”automaticamente” sull’intero programma, come nel
seguente esempio: