From d7275f218d37f80ea7164d1655941185ee19b786 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 15 Feb 2008 15:22:53 +0000 Subject: [PATCH] psblas/base/tools: psb_dcdbldext.F90 psb_zcdbldext.F90 Fixed stupid bug in the copying of the input overlap index list. --- base/tools/psb_dcdbldext.F90 | 2 +- base/tools/psb_zcdbldext.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index b1bcba47..c6cd688f 100644 --- 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 diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index 4ebce588..fb6e2623 100644 --- 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