lMat_size Function

private function lMat_size(this) result(size)

Return the max. index appearing in this lMat_t (i.e. the number of 6-index integrals) @return size The number of 6-index integrals of this object, depending on the symmetry.

Type Bound



Type IntentOptional Attributes Name
class(lMat_t), intent(in) :: this

Return Value integer(kind=int64)


Source Code

Source Code

    function lMat_size(this) result(size)
        class(lMat_t), intent(in) :: this
        integer(int64) :: size

        integer(int64) :: nBI

        nBI = int(numBasisIndices(nBasis), int64)
        ! The size is given by the largest index (LMatInd is monotonous in all arguments)
        size = this%indexFunc(nBI, nBI, nBI, nBI, nBI, nBI)
    end function lMat_size