MAXEXPONENT
— Maximum exponent of a real kindMAXEXPONENT(X)
returns the maximum exponent in the model of the
type of X
.
RESULT = MAXEXPONENT(X)
X | Shall be of type REAL .
|
INTEGER
and of the default integer
kind.
program exponents real(kind=4) :: x real(kind=8) :: y print *, minexponent(x), maxexponent(x) print *, minexponent(y), maxexponent(y) end program exponents