Il Linguaggio Fortran 90/95

80 Tipi ed espressioni
SET_EXPONENT(X,I)
Restituisce quel numero la cui parte decimale coincide con quella di X ed il cui esponente è pari
ad I. Se X è pari a zero, anche la funzione ha valore nullo.
L’argomento X deve essere di tipo REAL mentre l’argomento I deve essere di tipo INTEGER.
Il risultato della funzione ha lo stesso tipo di X.
SPACING(X)
Restituisce la spaziatura assoluta dei numeri prossimi a X nel modello utilizzato per la rappresentazione
di X. Tale valore è pari a b e−p , secondo il modello di rappresentazione dei numeri
reali precedentemente definito. Se questo valore risulta fuori range, viene fornito il valore della
funzione TINY(X).
La funzione e il suo argomento hanno tipo REAL e il medesimo parametro di kind.
Il risultato di questa funzione è utile per stabilire un criterio di convergenza indipendente dal
processore. Ad esempio, lo scarto massimo ammissibile per una procedura iterativa potrebbe
essere imposto pari a dieci volte la spaziatura minima rappresentabile.
TINY(X)
Restituisce il più piccolo numero positivo dello stesso tipo e kind di X. Il valore fornito è pari
a b emin−1 in cui b ed emin sono stati precedentemente definiti. L’argomento della funzione deve
essere di tipo REAL ed il valore fornito ha stesso tipo e kind dell’argomento.
Il seguente programma ha lo scopo di interrogare il processore riguardo i parametri relativa
alla rappresentazione di macchina di oggetto di tipo intero o reale. Il programma è, al tempo
stesso, un utile esempio per imparare a conoscere le procedure intrinseche analizzate in questa
sezione.
PROGRAM parametri
IMPLICIT NONE
INTEGER, PARAMETER :: i=1
REAL(KIND(1.E0)), PARAMETER :: r1=1.0
REAL(KIND(1.D0)), PARAMETER :: r2=1.0
!
WRITE(*,*) " Tipo INTEGER di default "
WRITE(*,*) " Kind: ", KIND(i)
WRITE(*,*) " No di Cifre: ", DIGITS(i)
WRITE(*,*) " Base: ", RADIX(i)
WRITE(*,*) " Range di esponenti: ", RANGE(i)
WRITE(*,*) " Massimo valore: ", HUGE(i)
WRITE(*,*) " N. di bit occupati: ", BIT_SIZE(i)
WRITE(*,*)
WRITE(*,*) " Tipo REAL in singola precisione "