psblas3:

psb_error_impl.F90
 psb_error_mod.F90

Fixed formatting problem in some error messages.

base/modules/psb_error_impl.F90

@@ -26,7 +26,6 @@ subroutine psb_serror()
       do while (psb_get_numerr() > izero)
         write(0,'(50("="))')
         call psb_errpop(err_c, r_name, i_e_d, a_e_d)
-      write(0,*) 'Error pop: ',a_e_d
         call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
         !            write(0,'(50("="))')
       end do
@@ -34,7 +33,6 @@ subroutine psb_serror()
     else
 
       call psb_errpop(err_c, r_name, i_e_d, a_e_d)
-      write(0,*) 'Error pop: ',a_e_d
       call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
       do while (psb_get_numerr() > 0)
         call psb_errpop(err_c, r_name, i_e_d, a_e_d)

base/modules/psb_error_mod.F90

@@ -231,7 +231,6 @@ contains
     end if
     if(present(a_err)) then 
       new_node%a_err_data = a_err
-      write(0,*) 'Pushing character:',a_err, '"',new_node%a_err_data
     end if
     new_node%next       => error_stack%top
     error_stack%top     => new_node