check_sparse_crs_bicgstab Module Subroutine

    module subroutine check_sparse_crs_bicgstab(self, status, time)
        implicit none
        class(type_solver_sparse_crs_bicgstab), intent(inout) :: self
        integer(int32), intent(in) :: status
        real(real64), intent(in) :: time

        if (status /= 0) then
            if (status == -1) then
                write (*, '(a,es13.4,a)'), "BiCGSTAB:", time, " Day: Temperature solver occures BREAKDOWN."
            else if (status == -2) then
                write (*, '(a,es13.4,a)'), "BiCGSTAB:", time, " Day: Temperature solver occures MAXITER."
            end if
            stop
        end if

    end subroutine check_sparse_crs_bicgstab