8.241 SELECTED_REAL_KIND — Выбор вида вещественного типа

Описание:

SELECTED_REAL_KIND(P,R) возвращает значение вида вещественного типа с десятичной точностью не менее P цифр, диапазоном экспоненты не менее R, и основанием RADIX.

Стандарт:

Fortran 90 и более поздние версии, с RADIX Fortran 2008 или более поздние

Класс:

Функция преобразования

Синтаксис:

RESULT = SELECTED_REAL_KIND([P, R, RADIX])

Аргументы:

`P`	(Необязательно) должен быть скаляром и типа `INTEGER`.
`R`	(Необязательно) должен быть скаляром и типа `INTEGER`.
`RADIX`	(Необязательно) должен быть скаляром и типа `INTEGER`.

До Fortran 2008, по крайней мере, один из аргументов R или P должен быть присутствовать; с Fortran 2008, они предполагаются равными нулю, если отсутствуют.

Возвращаемое значение:

SELECTED_REAL_KIND возвращает значение параметра типа вида вещественного типа с десятичной точностью не менее P цифр, диапазоном десятичной экспоненты не менее R, и с запрошенным RADIX. Если параметр RADIX отсутствует, можно вернуть виды вещественных типов с любым основанием. Если более одного вещественного типа удовлетворяют критериям, возвращается вид типа данных с наименьшей десятичной точностью. Если ни один вещественный тип не соответствует критериям, результатом является

-1, если процессор не поддерживает вещественный тип с: точностью, большей или равной P, но R и RADIX требования могут быть выполнены
-2, если процессор не поддерживает вещественный тип с диапазоном экспоненты,: большим или равным R, но P и RADIX требования могут быть выполнены
-3, если RADIX но не P и R требования: могут быть выполнены
-4, если RADIX и либо P или R требования: могут быть выполнены
-5, если нет вещественного типа с заданным RADIX

Пример:

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

См. также:

PRECISION — Десятичная точность вещественного вида, RANGE — Диапазон десятичной экспоненты, RADIX — Основание модели числа

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/SELECTED_005fREAL_005fKIND.html