Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | i | |||
integer, | intent(in) | :: | j | |||
integer, | intent(in) | :: | k | |||
integer, | intent(in) | :: | l |
elemental function UMatInd(i, j, k, l) result(ind)
integer, intent(in) :: i, j, k, l
integer(int64) :: ind
ind = UMatInd_base(i, j, k, l, nBI_umat)
end function UMatInd