Next: MAXLOC, Previous: MAX, Up: Intrinsic Procedures
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