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.
14 years ago · 362f77e652
parent 37da6ac05e
commit 362f77e652
4 changed files with 0 additions and 8 deletions
--- 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

--- 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

--- 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

--- 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