add_crs Subroutine

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

Type Bound

type_crs

Arguments

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

Calls

proc~~add_crs~~CallsGraph proc~add_crs type_crs%add_crs proc~find_crs type_crs%find_crs proc~add_crs->proc~find_crs

Source Code

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

        integer(int32) :: index

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

    end subroutine add_crs