From 38ff4f56dd27aa60c40b8684dee05da174a08bea Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 4 Dec 2013 09:49:36 +0000 Subject: [PATCH] psblas3: base/serial/impl/psb_c_coo_impl.f90 base/serial/impl/psb_c_csc_impl.f90 base/serial/impl/psb_c_csr_impl.f90 base/serial/impl/psb_d_coo_impl.f90 base/serial/impl/psb_d_csc_impl.f90 base/serial/impl/psb_d_csr_impl.f90 base/serial/impl/psb_s_coo_impl.f90 base/serial/impl/psb_s_csc_impl.f90 base/serial/impl/psb_s_csr_impl.f90 base/serial/impl/psb_z_coo_impl.f90 base/serial/impl/psb_z_csc_impl.f90 base/serial/impl/psb_z_csr_impl.f90 Cleaner fix for early return from getptn and getrow. --- base/serial/impl/psb_c_coo_impl.f90 | 17 ++++++----------- base/serial/impl/psb_c_csc_impl.f90 | 18 +++++++----------- base/serial/impl/psb_c_csr_impl.f90 | 16 ++++++---------- base/serial/impl/psb_d_coo_impl.f90 | 17 ++++++----------- base/serial/impl/psb_d_csc_impl.f90 | 18 +++++++----------- base/serial/impl/psb_d_csr_impl.f90 | 16 ++++++---------- base/serial/impl/psb_s_coo_impl.f90 | 17 ++++++----------- base/serial/impl/psb_s_csc_impl.f90 | 18 +++++++----------- base/serial/impl/psb_s_csr_impl.f90 | 16 ++++++---------- base/serial/impl/psb_z_coo_impl.f90 | 17 ++++++----------- base/serial/impl/psb_z_csc_impl.f90 | 18 +++++++----------- base/serial/impl/psb_z_csr_impl.f90 | 16 ++++++---------- 12 files changed, 76 insertions(+), 128 deletions(-) diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index aed944c1..cc8a78f0 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -2036,6 +2036,7 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call psb_erractionsave(err_act) info = psb_success_ + nz = 0 if (present(jmin)) then jmin_ = jmin @@ -2048,10 +2049,7 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& jmax_ = a%get_ncols() endif - if ((imax