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