set_all_dense Subroutine

private subroutine set_all_dense(self, value)

Type Bound

type_dense

Arguments

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

Called by

proc~~set_all_dense~~CalledByGraph proc~set_all_dense type_dense%set_all_dense proc~zero_dense type_dense%zero_dense proc~zero_dense->proc~set_all_dense

Source Code

    subroutine set_all_dense(self, value)
        implicit none
        class(type_dense), intent(inout) :: self
        real(real64), intent(in) :: value

        integer(int32) :: i, j

        do j = 1, self%num_col
            do i = 1, self%num_row
                self%val(i, j) = value
            end do
        end do
    end subroutine set_all_dense