mod(x, y): Modulus

Modulus or remainder function.

Declaration

Sintaxe

retval = mod(x, y)
elemental integer function imod(x, y)
elemental real(sp) function mod(x, y)

Argumentos

x the input value, can be integer or real.

y second input parameter should be same type and kind as x and not equal to 0.

Valores de retorno

The return value is of type and kind same as of x. The result is calculated using mathematical modulo or remainder as:

x - INT (x / y) * y.

If y is 0, the result is undefined like any integer value / 0.

Descrição

mod(x, y) calculates and returns modulo or remainder when x is divided by y. The result is calculated using

x - INT(x / y) * y

i.e., result is remainder when first argument is mathematically divided by second argument.

The return value should be less than y.

Tipos

Supported argument types are real and integer.

interface mod
    module procedure i8mod, i16mod, imod, i64mod, smod, dmod
end interface

contains

elemental integer(i16) function i16mod(x, y)
integer(i16), intent(in) :: x, y
end function

elemental integer(i8) function i8mod(x, y)
integer(i8), intent(in) :: x, y
end function

elemental integer function imod(x, y)
integer, intent(in) :: x, y
end function

elemental integer function i64mod(x, y)
integer(i64), intent(in) :: x, y
end function

elemental real(sp) function smod(x, y)
real(sp), intent(in) :: x, y
end function

elemental real(dp) function dmod(x, y)
real(dp), intent(in) :: x, y
end function

Exemplos

program intrinsics_mod
    implicit none
	print *, mod(-5, 3)
end program

Resultado:

-2

Veja Também

ceiling, floor.