Clicky
Showing changes from revision #0 to #1:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
exponent(x) returns the value of the exponent part of x. If x is zero the value returned is zero.
Fortran 95 and later
Elemental function
result = exponent(x)
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