8.12 AINT — Округлять до целого числа

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = AINT(A [, KIND])

Аргументы:

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

Значение результата:

Значение результата имеет тип REAL с параметром вида аргумента, если необязательный KIND отсутствует; в противном случае параметр вида будет задан KIND. Если абсолютное значение X меньше единицы, AINT(X) возвращает ноль. Если абсолютное значение равно или больше единицы, то возвращается наибольшее целое число, не превышающее его абсолютное значение. Знак совпадает со знаком X.

Пример:

program test_aint
  real(4) x4
  real(8) x8
  x4 = 1.234E0_4
  x8 = 4.321_8
  print *, aint(x4), dint(x8)
  x8 = aint(x4,8)
end program test_aint

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

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