UMat2Ind Function

public elemental function UMat2Ind(i, j, k, l) result(ind)

Uses

Arguments

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

Return Value integer(kind=int64)


Source Code

    elemental function UMat2Ind(i, j, k, l) result(ind)
        use SystemData, only: nBasis
        integer, intent(in) :: i, j, k, l
        integer(int64) :: ind

        ind = UMatInd_base(i, j, k, l, numBasisIndices(nBasis))
    end function UMat2Ind