MAXEXPONENT — Maximum exponent of a real kind ¶MAXEXPONENT(X) returns the maximum exponent in the model of the
type of X.
Fortran 90 and later
Inquiry function
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