Il Linguaggio Fortran 90/95

82 Tipi ed espressioni
Base: 2
Range di esponenti: 37
Epsilon: 1.192093E-07
Spaziatura: 1.192093E-07
Minimo valore: 1.175494E-38
Massimo valore: 3.402823E+38
Tipo REAL in doppia precisione
Kind: 8
Bit significativi: 53
Max esponente: 1024
Min esponente: -1021
Cifre significative: 15
Base: 2
Range di esponenti: 307
Epsilon: 2.22044604925031D-016
Spaziatura: 2.22044604925031D-016
Minimo valore: 2.22507385850720D-308
Massimo valore: 1.79769313486232D+308
Naturalmente, su macchine differenti si possono ottenere risultati differenti. Lo stesso dicasi nel
caso in cui questo programma venisse compilato con un diverso compilatore, in particolare per
quanto riguarda il valore dei numeri di kind che, come è noto, non sono fissati dallo standard
ma lasciati alla scelta dei produttori di compilatori.
Un ulteriore esempio di impiego delle funzioni di questo gruppo potrebbe essere la definizione
dei parametri di kind di interi con differenti dimensioni e di reali di differenti livelli di precisione.
Queste definizioni possono essere efficacemente inserite all’interno di un modulo a fornire, così,
una collezione di parametri ”globali” utilizzabili da diverse unità di programma. Sebbene lo
studio delle unità modulo sarà affrontato solo più avanti, si ritiene comunque utile premettere
questo semplice esempio:
MODULE numeric_kinds
! costanti con nome per interi a 4, 2 e 1 byte
INTEGER, PARAMETER :: &
i4b = SELECTED_INT_KIND(9), &
i2b = SELECTED_INT_KIND(4), &
i1b = SELECTED_INT_KIND(2)
! costanti con nome per reali in singola, doppia e
! quadrupla precisione
INTEGER, PARAMETER :: &
sp = KIND(1.0), &
dp = SELECTED_REAL_KIND(2*PRECISION(1.0_sp)), &
qp = SELECTED_REAL_KIND(2*PRECISION(1.0_dp))
END MODULE numeric_kinds