Il Linguaggio Fortran 90/95

1.9 Procedure Intrinseche 81
WRITE(*,*) " Kind: ", KIND(r1)
WRITE(*,*) " Bit significativi: ", DIGITS(r1)
WRITE(*,*) " Max esponente: ", MAXEXPONENT(r1)
WRITE(*,*) " Min esponente: ", MINEXPONENT(r1)
WRITE(*,*) " Cifre significative:", PRECISION(r1)
WRITE(*,*) " Base: ", RADIX(r1)
WRITE(*,*) " Range di esponenti: ", RANGE(r1)
WRITE(*,*) " Epsilon: ", EPSILON(r1)
WRITE(*,*) " Spaziatura: ", SPACING(r1)
WRITE(*,*) " Minimo valore: ", TINY(r1)
WRITE(*,*) " Massimo valore: ", HUGE(r1)
WRITE(*,*)
WRITE(*,*) " Tipo REAL in doppia precisione "
WRITE(*,*) " Kind: ", KIND(r2)
WRITE(*,*) " Bit significativi: ", DIGITS(r2)
WRITE(*,*) " Max esponente: ", MAXEXPONENT(r2)
WRITE(*,*) " Min esponente: ", MINEXPONENT(r2)
WRITE(*,*) " Cifre significative:", PRECISION(r2)
WRITE(*,*) " Base: ", RADIX(r2)
WRITE(*,*) " Range di esponenti: ", RANGE(r2)
WRITE(*,*) " Epsilon: ", EPSILON(r2)
WRITE(*,*) " Spaziatura: ", SPACING(r2)
WRITE(*,*) " Minimo valore: ", TINY(r2)
WRITE(*,*) " Massimo valore: ", HUGE(r2)
STOP
END PROGRAM parametri
Compilato con l’Essential Lahey Fortran 90 Compiler (ELF90) 4.00b ed eseguito su un PC con
processore Intel Pentium III, questo programma fornisce il seguente output:
Tipo INTEGER di default
Kind: 4
No di Cifre: 31
Base: 2
Range di esponenti: 9
Massimo valore: 2147483647
N. di bit occupati: 32
Tipo REAL in singola precisione
Kind: 4
Bit significativi: 24
Max esponente: 128
Min esponente: -125
Cifre significative: 6