From 362f77e6526d7860f08e453cd8f510ca2c70c101 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 20 Jun 2011 15:32:06 +0000 Subject: [PATCH] psblas3: base/serial/impl/psb_c_base_mat_impl.f90 base/serial/impl/psb_d_base_mat_impl.f90 base/serial/impl/psb_s_base_mat_impl.f90 base/serial/impl/psb_z_base_mat_impl.f90 Silly bug in missing erraction restore. --- base/serial/impl/psb_c_base_mat_impl.f90 | 2 -- base/serial/impl/psb_d_base_mat_impl.f90 | 2 -- base/serial/impl/psb_s_base_mat_impl.f90 | 2 -- base/serial/impl/psb_z_base_mat_impl.f90 | 2 -- 4 files changed, 8 deletions(-) diff --git a/base/serial/impl/psb_c_base_mat_impl.f90 b/base/serial/impl/psb_c_base_mat_impl.f90 index 4e8ce78f..aecc3cbf 100644 --- a/base/serial/impl/psb_c_base_mat_impl.f90 +++ b/base/serial/impl/psb_c_base_mat_impl.f90 @@ -810,7 +810,6 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return @@ -941,7 +940,6 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return diff --git a/base/serial/impl/psb_d_base_mat_impl.f90 b/base/serial/impl/psb_d_base_mat_impl.f90 index a6ad8394..4ffa18e7 100644 --- a/base/serial/impl/psb_d_base_mat_impl.f90 +++ b/base/serial/impl/psb_d_base_mat_impl.f90 @@ -810,7 +810,6 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return @@ -941,7 +940,6 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return diff --git a/base/serial/impl/psb_s_base_mat_impl.f90 b/base/serial/impl/psb_s_base_mat_impl.f90 index e6ad064e..7f8d12f8 100644 --- a/base/serial/impl/psb_s_base_mat_impl.f90 +++ b/base/serial/impl/psb_s_base_mat_impl.f90 @@ -810,7 +810,6 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return @@ -941,7 +940,6 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return diff --git a/base/serial/impl/psb_z_base_mat_impl.f90 b/base/serial/impl/psb_z_base_mat_impl.f90 index 9fd6b20b..d48e849a 100644 --- a/base/serial/impl/psb_z_base_mat_impl.f90 +++ b/base/serial/impl/psb_z_base_mat_impl.f90 @@ -811,7 +811,6 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return @@ -942,7 +941,6 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) end if - return call psb_erractionrestore(err_act) return