SELECTED_REAL_KIND — Choose real kind#
-
SELECTED_REAL_KIND(P, R)#
SELECTED_REAL_KIND(P,R)
returns the kind value of a real data type with decimal precision of at leastP
digits, exponent range of at leastR
, and with a radix ofRADIX
.- Parameters
P – (Optional) shall be a scalar and of type
INTEGER
.R – (Optional) shall be a scalar and of type
INTEGER
.RADIX – (Optional) shall be a scalar and of type
INTEGER
.
- Returns
SELECTED_REAL_KIND
returns the value of the kind type parameter of a real data type with decimal precision of at leastP
digits, a decimal exponent range of at leastR
, and with the requestedRADIX
. If theRADIX
parameter is absent, real kinds with any radix can be returned. 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
- Standard:
Fortran 90 and later, with
RADIX
Fortran 2008 or later- Class:
Transformational function
- Syntax:
RESULT = SELECTED_REAL_KIND([P, R, RADIX])
- Example:
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
- See also:
PRECISION — Decimal precision of a real kind, RANGE — Decimal exponent range, RADIX — Base of a model number