psblas/base/tools:

psb_dcdbldext.F90 psb_zcdbldext.F90 Fixed stupid bug in the copying of the input overlap index list.
17 years ago · d7275f218d
parent 4e43d48f5f
commit d7275f218d
2 changed files with 2 additions and 2 deletions
--- a/base/tools/psb_dcdbldext.F90
+++ b/base/tools/psb_dcdbldext.F90
@ -272,7 +272,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
      orig_ovr(cntov_o+3)=-1
      cntov_o=cntov_o+3
    end Do
-    counter=counter+n_elem_recv+n_elem_send+2
+    counter=counter+n_elem_recv+n_elem_send+3
  end Do


--- a/base/tools/psb_zcdbldext.F90
+++ b/base/tools/psb_zcdbldext.F90
@ -271,7 +271,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
      orig_ovr(cntov_o+3)=-1
      cntov_o=cntov_o+3
    end Do
-    counter=counter+n_elem_recv+n_elem_send+2
+    counter=counter+n_elem_recv+n_elem_send+3
  end Do