alloc_dense Subroutine

private subroutine alloc_dense(this, size)

Allocate the 6-index integrals for the dense storage @param[in] size size of the integral container to be allocated

Type Bound

dense_lMat_t

Arguments

Type IntentOptional Attributes Name
class(dense_lMat_t), intent(inout) :: this
integer(kind=int64), intent(in) :: size

Contents

Source Code

alloc_dense

Source Code

    subroutine alloc_dense(this, size)
        class(dense_lMat_t), intent(inout) :: this
        integer(int64), intent(in) :: size

        write(stdout, *) "Six-index integrals require", real(size) * real(HElement_t_SizeB) / (2.0**30), "GB"
        call this%lmat_vals%shared_alloc(size, "LMat")
        if (iProcIndex_intra == 0) then
            this%lmat_vals%ptr = 0.0_dp
        end if
    end subroutine alloc_dense