9.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 и более поздние версии