9.242 SELECTED_REAL_KIND — Выбор реального типа

Описание:

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

Стандарт:

Fortran 95 и более поздние версии, с 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 возвращает значение параметра типа kind вещественного типа с десятичной точностью не менее P знаков, диапазоном десятичного показателя степени не менее R, и с запрошенным RADIX. Если параметр RADIX отсутствует, могут быть возвращены типы вещественных чисел с любым основанием. Если более одного типа вещественных чисел удовлетворяют критериям, возвращается тип с наименьшей десятичной точностью. Если ни один тип вещественного числа не соответствует критериям, результатом является

-1, если процессор не поддерживает тип вещественного числа с

точностью не меньше P, но R и RADIX требования могут быть выполнены

-2, если процессор не поддерживает тип вещественного числа с диапазоном показателя

степени не меньше R, но P и RADIX требования могут быть выполнены

-3, если RADIX, но не P и R требования могут быть выполнены

-4, если RADIX и либо P или R требования могут быть выполнены

-5, если нет типа вещественного числа с заданным RADIX

См. также:

PRECISION, RANGE, 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

Следующее: SET_EXPONENT, Предыдущее: SELECTED_INT_KIND, Наверх: Встроенные процедуры [Оглавление][Индекс]