EXPONENT
— Exponent function ¶RESULT = EXPONENT(X)
EXPONENT(X)
returns the value of the exponent part of X. If X
is zero the value returned is zero.
Elemental function
X | The type shall be REAL . |
The return value is of type default INTEGER
.
program test_exponent real :: x = 1.0 integer :: i i = exponent(x) print *, i print *, exponent(0.0) end program test_exponent
Fortran 90 and later