From 1903489113d239872268ae35f4b7aba2b4eced03 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 19 Apr 2013 09:14:03 +0000 Subject: [PATCH] *** empty log message *** --- base/serial/impl/psb_base_mat_impl.f90 | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index 1ca4ce98..b052029b 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -321,15 +321,13 @@ subroutine psb_base_trim(a) character(len=20) :: name='trim' logical, parameter :: debug=.false. - call psb_get_erraction(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - call psb_errpush(psb_err_missing_override_method_,name,a_err=a%get_fmt()) + ! + ! This is the base version. + ! The correct action is: do nothing. + ! Indeed, the more complicated the data structure, the + ! more likely this is the only possible course. + ! - if (err_act /= psb_act_ret_) then - call psb_error() - end if return end subroutine psb_base_trim