Clicky
Showing changes from revision #2 to #3:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
maxexponent(x)
returns the maximum exponent in the model of the type of x
.
Fortran 95 and later
(削除) Inquiry function (削除ここまで)(追記) Inquiry function (追記ここまで)
result = maxexponent(x)
x
- Shall be of type real
.The return value is of type 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