Delta kronecker .
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i |
integer |
||
integer, | intent(in) | :: | j |
integer |
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