maxexponent(x)
returns the maximum exponent in the model of the type of x
.
Fortran 95 and later
result = maxexponent(x)
x
- Shall be of type real
.The return value is of type 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