9.242 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

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