Elemental Intrinsic Function (Generic): Returns the exponent part of the argument when represented as a model number.
Syntax
result = EXPONENT (x)
x
(Input) must be of type real.
Results
The result type is default integer. If x is not equal to zero, the result value is the exponent part of x. The exponent must be within default integer range; otherwise, the result is undefined.
If x is zero, the exponent of x is zero. For more information on the exponent part (e) in the real model, see Model for Real Data.
See Also
DIGITS, RADIX, FRACTION, MAXEXPONENT, MINEXPONENT, Data Representation Models
Examples
EXPONENT (2.0) has the value 2.
If 4.1 is a REAL(4) value, EXPONENT (4.1) has the value 3.
The following shows another example:
REAL(4) r1, r2
REAL(8) r3, r4
r1 = 1.0
r2 = 123456.7
r3 = 1.0D0
r4 = 123456789123456.7
write(*,*) EXPONENT(r1) ! prints 1
write(*,*) EXPONENT(r2) ! prints 17
write(*,*) EXPONENT(r3) ! prints 1
write(*,*) EXPONENT(r4) ! prints 47
END