create_preconditioner_sparse_crs_bicgstab Module Subroutine

    module subroutine create_preconditioner_sparse_crs_bicgstab(self, A)
        implicit none
        class(type_solver_sparse_crs_bicgstab), intent(inout) :: self
        type(type_crs), intent(in) :: A
        integer(int32) :: i, j

        select case (self%Preconditioner)
        case (0)
            !! No preconditioner
            return
        case (1)
            !! Jacobi preconditioner
            call create_preconditioner_jacobi(self%N, A, self%M(:))
        case (2)
            !! ILU preconditioner
        end select

    end subroutine create_preconditioner_sparse_crs_bicgstab