Clicky
Showing changes from revision #2 to #3:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
precision(x) returns the decimal precision in the model of the type of x.
Fortran 95 and later
(削除) Inquiry function (削除ここまで)(追記) Inquiry function (追記ここまで)
result = precision(x)
x - Shall be of type real or complex.The return value is of type integer and of the default integer kind.
program prec_and_range
real(kind=4) :: x(2)
complex(kind=8) :: y
print *, precision(x), range(x)
print *, precision(y), range(y)
end program prec_and_range