Clicky
Showing changes from revision #3 to #4:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
precision(x) returns the decimal precision in the model of the type of x.
Fortran 95 and later
result = precision(x)
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(追記)
(追記ここまで)(追記)