Next: MINEXPONENT, Previous: MALLOC, Up: Intrinsic Procedures
MAXEXPONENT — Maximum exponent of a real kindMAXEXPONENT(X) returns the maximum exponent in the model of the
type of X.
I = 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