8.200 MOD — Функция остатка от деления

Описание:

MOD(A,P) вычисляет остаток от деления А на P.

Стандарт:

Fortran 77 и более поздние версии, имеет перегрузки, являющиеся расширениями GNU

Класс:

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

Синтаксис:

RESULT = MOD(A, P)

Аргументы:

`A`	Должен быть скаляром типа `INTEGER` или `REAL`.
`P`	Должен быть скаляром того же типа и размера, что и `A`, и не равен нулю. (В качестве расширения GNU допускаются аргументы разных размеров.)

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

Возвращаемое значение — результат A - (INT(A/P) * P). Тип и размер возвращаемого значения совпадают с типами и размерами аргументов. Возвращаемое значение имеет тот же знак, что и A, и величина меньше величины P. (В качестве расширения GNU размер — наибольший размер фактических аргументов.)

Пример:

program test_mod
  print *, mod(17,3)
  print *, mod(17.5,5.5)
  print *, mod(17.5d0,5.5)
  print *, mod(17.5,5.5d0)

  print *, mod(-17,3)
  print *, mod(-17.5,5.5)
  print *, mod(-17.5d0,5.5)
  print *, mod(-17.5,5.5d0)

  print *, mod(17,-3)
  print *, mod(17.5,-5.5)
  print *, mod(17.5d0,-5.5)
  print *, mod(17.5,-5.5d0)
end program test_mod

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

Имя	Аргументы	Тип возвращаемого значения	Стандарт
`MOD(A,P)`	`INTEGER A,P`	`INTEGER`	Fortran 77 и более поздние версии
`AMOD(A,P)`	`REAL(4) A,P`	`REAL(4)`	Fortran 77 и более поздние версии
`DMOD(A,P)`	`REAL(8) A,P`	`REAL(8)`	Fortran 77 и более поздние версии
`BMOD(A,P)`	`INTEGER(1) A,P`	`INTEGER(1)`	Расширение GNU
`IMOD(A,P)`	`INTEGER(2) A,P`	`INTEGER(2)`	Расширение GNU
`JMOD(A,P)`	`INTEGER(4) A,P`	`INTEGER(4)`	Расширение GNU
`KMOD(A,P)`	`INTEGER(8) A,P`	`INTEGER(8)`	Расширение GNU

См. также:

MODULO — Функция модуля

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