Il Linguaggio Fortran 90/95

1.7 Tipi di dati parametrizzati 53
PRINT*, "Il numero di kind per la singola precisione e’: ", KIND(0.0E0)
PRINT*, "Il numero di kind per la doppia precisione e’: ", KIND(0.0D0)
Se queste istruzioni venissero eseguite su un PC con processore Intel Pentium III che usi il
compilatore Digital Visual Fortran 6.0, l’output sarebbe:
Il numero di kind per la singola precisione e’: 4
Il numero di kind per la doppia precisione e’: 8
Evidentemente, passando ad un altro processore oppure utilizzando un diverso compilatore il
risultato potrebbe essere differente.
Per poter eseguire un programma in maniera corretta su processori differenti è necessario
un meccanismo in grado di selezionare automaticamente il parametro appropriato per il valore
reale quando il programma venga trasferito fra due sistemi differenti. Tale meccanismo
è rappresentato dalla funzione intrinseca SELECTED_REAL_KIND: quando viene eseguita, essa
restituisce il numero del parametro di kind del più piccolo valore reale che soddisfa il range e
la precisione richiesti da un particolare processore. La forma generale di questa funzione è:
numero_di_kind = SELECTED_REAL_KIND(p=precisione, r=range)
dove precisione rappresenta il numero di cifre decimali della precisione richiesta e range è
l’intervallo richiesto per gli esponenti delle potenze di 10. I due argomenti precisione e range
sono facoltativi nel senso che è possibile specificare uno o entrambi gli argomenti per determinare
le caratteristiche richieste per il valore reale. Inoltre, i termini p= e r= sono facoltativi, purché
gli argomenti precisione erange siano specificati in questa sequenza; il terminep= può essere
omesso se viene specificata soltanto la precisione.
Più precisamente, la funzione SELECTED_REAL_KIND restituisce il numero di kind del più
piccolo valore reale che soddisfa alle caratteristiche richieste oppure -1 se nel processore in uso
non è possibile ottenere la precisione specificata con qualsiasi tipo di dato reale, -2 se non
è possibile ottenere il range specificato con qualsiasi tipo di dato reale, -3 se non è possibile
ottenere né la precisione né il range.
Un esempio di applicazione di questa funzione è dato dal seguente programma di test:
PROGRAM test_select_real
IMPLICIT NONE
INTEGER :: n1, n2, n3, n4, n5, n6, n7
n1 = SELECTED_REAL_KIND(p=6,r=37)
n2 = SELECTED_REAL_KIND(r=100)
n3 = SELECTED_REAL_KIND(p=13,r=200)
n4 = SELECTED_REAL_KIND(p=13)
n5 = SELECTED_REAL_KIND(17)
n6 = SELECTED_REAL_KIND(p=11,r=500)
n7 = SELECTED_REAL_KIND(17,500)
PRINT*, n1,n2,n3,n4,n5,n6,n7
END PROGRAM