Next: SET_EXPONENT, Previous: SELECTED_INT_KIND, Up: Intrinsic Procedures
SELECTED_REAL_KIND
— Choose real kindSELECTED_REAL_KIND(P,R)
return the kind value of a real data type
with decimal precision greater of at least P
digits and exponent
range greater at least R
.
I = SELECTED_REAL_KIND(P,R)
|
P | (Optional) shall be a scalar and of type INTEGER .
|
R | (Optional) shall be a scalar and of type INTEGER .
|
SELECTED_REAL_KIND
returns the value of the kind type parameter of
a real data type with decimal precision of at least P
digits and a
decimal exponent range of at least R
. If more than one real data
type meet the criteria, the kind of the data type with the smallest
decimal precision is returned. If no real data type matches the criteria,
the result is
P
R
program real_kinds integer,parameter :: p6 = selected_real_kind(6) integer,parameter :: p10r100 = selected_real_kind(10,100) integer,parameter :: r400 = selected_real_kind(r=400) real(kind=p6) :: x real(kind=p10r100) :: y real(kind=r400) :: z print *, precision(x), range(x) print *, precision(y), range(y) print *, precision(z), range(z) end program real_kinds