add_dense Subroutine

private subroutine add_dense(self, row, col, value)

Type Bound

type_dense

Arguments

Type IntentOptional Attributes Name
class(type_dense), intent(inout) :: self
integer(kind=int32), intent(in) :: row
integer(kind=int32), intent(in) :: col
real(kind=real64), intent(in) :: value

Called by

proc~~add_dense~~CalledByGraph proc~add_dense type_dense%add_dense proc~process_element_hydraulic_linear_1 process_element_hydraulic_linear_1 proc~process_element_hydraulic_linear_1->proc~add_dense proc~hydraulic_assemble_system_linear_1 hydraulic_assemble_system_linear_1 proc~hydraulic_assemble_system_linear_1->proc~process_element_hydraulic_linear_1 proc~hydraulic_assemble_system_linear_1_parallel hydraulic_assemble_system_linear_1_parallel proc~hydraulic_assemble_system_linear_1_parallel->proc~process_element_hydraulic_linear_1

Source Code

    subroutine add_dense(self, row, col, value)
        implicit none
        class(type_dense), intent(inout) :: self
        integer(int32), intent(in) :: row, col
        real(real64), intent(in) :: value

        self%val(row, col) = self%val(row, col) + value

    end subroutine add_dense