From 04b10c6943aaf65e19585d68a1a4a0c21fe1ff35 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 9 Jan 2012 18:08:41 +0000 Subject: [PATCH] psblas3: base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 Uninitialized var caugh by Cray. --- base/tools/psb_csphalo.F90 | 10 +++++----- base/tools/psb_dsphalo.F90 | 10 +++++----- base/tools/psb_ssphalo.F90 | 10 +++++----- base/tools/psb_zsphalo.F90 | 10 +++++----- 4 files changed, 20 insertions(+), 20 deletions(-) diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index 998eacb7..349874e3 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -97,6 +97,11 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() + ictxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ictxt, me, np) + if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': Start' @@ -132,11 +137,6 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& outfmt_ = 'CSR' endif - ictxt = desc_a%get_context() - icomm = desc_a%get_mpic() - - Call psb_info(ictxt, me, np) - Allocate(sdid(np,3),rvid(np,3),brvindx(np+1),& & rvsz(np),sdsz(np),bsdindx(np+1), acoo,stat=info) diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 1bb460ce..2dd3ced6 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -97,6 +97,11 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() + ictxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ictxt, me, np) + if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': Start' @@ -132,11 +137,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& outfmt_ = 'CSR' endif - ictxt = desc_a%get_context() - icomm = desc_a%get_mpic() - - Call psb_info(ictxt, me, np) - Allocate(sdid(np,3),rvid(np,3),brvindx(np+1),& & rvsz(np),sdsz(np),bsdindx(np+1), acoo,stat=info) diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index f719e618..5e508b0a 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -97,6 +97,11 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() + ictxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ictxt, me, np) + if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': Start' @@ -132,11 +137,6 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& outfmt_ = 'CSR' endif - ictxt = desc_a%get_context() - icomm = desc_a%get_mpic() - - Call psb_info(ictxt, me, np) - Allocate(sdid(np,3),rvid(np,3),brvindx(np+1),& & rvsz(np),sdsz(np),bsdindx(np+1), acoo,stat=info) diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 2b2136df..a42d9435 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -97,6 +97,11 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() + ictxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ictxt, me, np) + if (debug_level >= psb_debug_outer_) & & write(debug_unit,*) me,' ',trim(name),': Start' @@ -132,11 +137,6 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& outfmt_ = 'CSR' endif - ictxt = desc_a%get_context() - icomm = desc_a%get_mpic() - - Call psb_info(ictxt, me, np) - Allocate(sdid(np,3),rvid(np,3),brvindx(np+1),& & rvsz(np),sdsz(np),bsdindx(np+1), acoo,stat=info)