psb_error_impl.F90
 psb_error_mod.F90

Fixed formatting problem in some error messages.
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 466bcc2c25
commit 00a54cce70

@ -26,7 +26,6 @@ subroutine psb_serror()
do while (psb_get_numerr() > izero) do while (psb_get_numerr() > izero)
write(0,'(50("="))') write(0,'(50("="))')
call psb_errpop(err_c, r_name, i_e_d, a_e_d) 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) call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
! write(0,'(50("="))') ! write(0,'(50("="))')
end do end do
@ -34,7 +33,6 @@ subroutine psb_serror()
else else
call psb_errpop(err_c, r_name, i_e_d, a_e_d) 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) call psb_errmsg(err_c, r_name, i_e_d, a_e_d)
do while (psb_get_numerr() > 0) do while (psb_get_numerr() > 0)
call psb_errpop(err_c, r_name, i_e_d, a_e_d) call psb_errpop(err_c, r_name, i_e_d, a_e_d)

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

Loading…
Cancel
Save