9.192 MODULO — Функция Modulo

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = MODULO(A, P)

Аргументы:

A	Должен быть скаляром типа INTEGER или REAL.
P	Должен быть скаляром того же типа и размера, что и A. Он не должен быть равен нулю.

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

Тип и размер результата соответствуют аргументам.

Если A и P имеют тип INTEGER:

MODULO(A,P) имеет значение R, такое что A=Q*P+R, где Q — целое число, а R находится в диапазоне от 0 (включительно) до P (исключительно).

Если A и P имеют тип REAL:

MODULO(A,P) имеет значение A - FLOOR (A / P) * P.

Возвращаемое значение имеет тот же знак, что и P, и абсолютное значение меньше абсолютного значения P.

Пример:

program test_modulo
  print *, modulo(17,3)
  print *, modulo(17.5,5.5)

  print *, modulo(-17,3)
  print *, modulo(-17.5,5.5)

  print *, modulo(17,-3)
  print *, modulo(17.5,-5.5)
end program

См. также:

MOD