The EXPONENT function returns the exponential part of the model representation of a number.
Syntax
EXPONENT (x)
x is an INTENT(IN) scalar or array of type REAL.
The result is of type default INTEGER. Its value is the power of two of the exponential part of x.
Example
real :: x.4.3 write(*,*) x.exponent(x) ! writes 4.300000 3 write(*,*) scale(fraction(x),exponent(x)) ! writes 4.300000