9.17 ANINT — Ближайшее целое число

Описание:

ANINT(A [, KIND]) округляет свой аргумент до ближайшего целого числа.

Стандарт:

Fortran 77 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = ANINT(A [, KIND])

Аргументы:

A	Тип аргумента должен быть REAL.
KIND	(Необязательно) Выражение инициализации, указывающее параметр рода результата.

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

Возвращаемое значение имеет тип вещественного числа с параметром рода аргумента, если необязательный KIND отсутствует; в противном случае параметр рода будет задан значением KIND. Если A больше нуля, ANINT(A) возвращает AINT(X+0.5). Если A меньше или равно нулю, то возвращает AINT(X-0.5).

Пример:

program test_anint
  real(4) x4
  real(8) x8
  x4 = 1.234E0_4
  x8 = 4.321_8
  print *, anint(x4), dnint(x8)
  x8 = anint(x4,8)
end program test_anint

Указанные имена:

Имя	Аргумент	Тип результата	Стандарт
AINT(A)	REAL(4) A	REAL(4)	Fortran 77 и более поздние версии
DNINT(A)	REAL(8) A	REAL(8)	Fortran 77 и более поздние версии