set_elem_dense Subroutine

private subroutine set_elem_dense(this, index, element)

Set an element in the dense 6-index integrals to a new value

Type Bound

dense_lMat_t

Arguments

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

position of the element
real(kind=dp), intent(in) :: element

new value of the element

Source Code

    subroutine set_elem_dense(this, index, element)
        class(dense_lMat_t), intent(inout) :: this
        integer(int64), intent(in) :: index
        HElement_t(dp), intent(in) :: element

        this%lMat_vals%ptr(index) = element
    end subroutine set_elem_dense