set_all_crs Subroutine

private subroutine set_all_crs(self, value)

Type Bound

type_crs

Arguments

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

Called by

proc~~set_all_crs~~CalledByGraph proc~set_all_crs type_crs%set_all_crs proc~hydraulic_assemble_system_linear_1 hydraulic_assemble_system_linear_1 proc~hydraulic_assemble_system_linear_1->proc~set_all_crs proc~hydraulic_assemble_system_linear_1_parallel hydraulic_assemble_system_linear_1_parallel proc~hydraulic_assemble_system_linear_1_parallel->proc~set_all_crs proc~zero_crs type_crs%zero_crs proc~zero_crs->proc~set_all_crs

Source Code

    subroutine set_all_crs(self, value)
        implicit none
        class(type_crs), intent(inout) :: self
        real(real64), intent(in) :: value

        integer(int32) :: i

        do i = 1, self%nnz
            self%val(i) = value
        end do

    end subroutine set_all_crs