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 @param[in] index position of the element @param[in] element new value of the element

Type Bound



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


Source Code

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