psblas3:

base/serial/impl/psb_c_csr_impl.f90 base/serial/impl/psb_d_csr_impl.f90 base/serial/impl/psb_s_csr_impl.f90 base/serial/impl/psb_z_csr_impl.f90 Change error from missing index in srch_upd.
11 years ago · 045d4d5e32
parent c193fced51
commit 045d4d5e32
4 changed files with 4 additions and 8 deletions
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@ -2400,8 +2400,7 @@ subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
         & imin,imax,jmin,jmax,info,gtl)
    if (info /= psb_success_) then  
-
+      info = psb_err_internal_error_
      info = psb_err_invalid_mat_state_
    end if
  else 
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@ -2400,8 +2400,7 @@ subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
         & imin,imax,jmin,jmax,info,gtl)
    if (info /= psb_success_) then  
-
+      info = psb_err_internal_error_
      info = psb_err_invalid_mat_state_
    end if
  else 
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@ -2400,8 +2400,7 @@ subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
         & imin,imax,jmin,jmax,info,gtl)
    if (info /= psb_success_) then  
-
+      info = psb_err_internal_error_
      info = psb_err_invalid_mat_state_
    end if
  else 
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@ -2400,8 +2400,7 @@ subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
         & imin,imax,jmin,jmax,info,gtl)
    if (info /= psb_success_) then  
-
+      info = psb_err_internal_error_
      info = psb_err_invalid_mat_state_
    end if
  else