delta_kronecker Function

public elemental function delta_kronecker(i, j) result(res)

Delta kronecker .

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i

integer
integer, intent(in) :: j

integer

Return Value real(kind=rk)


Source Code

   elemental real(rk) function delta_kronecker(i, j) result(res)
   !! Delta kronecker \( \delta_{i,j} \).
      integer, intent(in) :: i, j
         !! integer

      res = ZERO
      if (i == j) res = ONE

   end function delta_kronecker