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

Описание:

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

Стандарт:

Fortran 77 и позднее

Класс:

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

Синтаксис:

RESULT = ANINT(A [, KIND])

Аргументы:

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

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

Возвращаемое значение имеет тип вещественного числа с параметром типа рода аргумента, если необязательный 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

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

Имя	Аргумент	Тип возвращаемого значения	Стандарт
`ANINT(A)`	`REAL(4) A`	`REAL(4)`	Fortran 77 и позднее
`DNINT(A)`	`REAL(8) A`	`REAL(8)`	Fortran 77 и позднее

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/ANINT.html