From 9c16a09111f65e0621c741527e87874af14699fc Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 28 Aug 2013 13:24:37 +0000 Subject: [PATCH] psblas3: base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 Wrong order of arguments in call to get_list in sphalo (but was irrelevant to overall correctness) --- base/tools/psb_csphalo.F90 | 2 +- base/tools/psb_dsphalo.F90 | 2 +- base/tools/psb_ssphalo.F90 | 2 +- base/tools/psb_zsphalo.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index 054e80ca..f30fea47 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -158,7 +158,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& goto 9999 end select - call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info) + call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info) l1 = 0 diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 7193d0ee..e4159014 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -158,7 +158,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& goto 9999 end select - call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info) + call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info) l1 = 0 diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index 780887bc..5dd43eb1 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -158,7 +158,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& goto 9999 end select - call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info) + call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info) l1 = 0 diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 467ecec4..31fc4adc 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -158,7 +158,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& goto 9999 end select - call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info) + call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info) l1 = 0