From 5ae50031f654d34677511aacfc78e7b178ea04c8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Dec 2012 14:12:40 +0000 Subject: [PATCH] psblas-testpre: base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 wrong kind for minfo. --- 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 2cb3265c..55ae5a11 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -80,7 +80,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,& & l1, err_act - integer(psb_mpik_) :: icomm + integer(psb_mpik_) :: icomm, minfo integer(psb_mpik_), allocatable :: brvindx(:), & & rvsz(:), bsdindx(:),sdsz(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) @@ -190,7 +190,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& counter = counter+n_el_send+3 Enddo - call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoall' @@ -274,11 +274,11 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_complex,& - & acoo%val,rvsz,brvindx,mpi_complex,icomm,info) + & acoo%val,rvsz,brvindx,mpi_complex,icomm,minfo) call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoallv' diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 7b536bfa..d5e89b15 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -80,7 +80,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,& & l1, err_act - integer(psb_mpik_) :: icomm + integer(psb_mpik_) :: icomm, minfo integer(psb_mpik_), allocatable :: brvindx(:), & & rvsz(:), bsdindx(:),sdsz(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) @@ -190,7 +190,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& counter = counter+n_el_send+3 Enddo - call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoall' @@ -274,11 +274,11 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_double_precision,& - & acoo%val,rvsz,brvindx,mpi_double_precision,icomm,info) + & acoo%val,rvsz,brvindx,mpi_double_precision,icomm,minfo) call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoallv' diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index bb737131..c8b63249 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -80,7 +80,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,& & l1, err_act - integer(psb_mpik_) :: icomm + integer(psb_mpik_) :: icomm, minfo integer(psb_mpik_), allocatable :: brvindx(:), & & rvsz(:), bsdindx(:),sdsz(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) @@ -190,7 +190,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& counter = counter+n_el_send+3 Enddo - call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoall' @@ -274,11 +274,11 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_real,& - & acoo%val,rvsz,brvindx,mpi_real,icomm,info) + & acoo%val,rvsz,brvindx,mpi_real,icomm,minfo) call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoallv' diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index a12e4ae5..1a61f9f6 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -80,7 +80,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr,& & l1, err_act - integer(psb_mpik_) :: icomm + integer(psb_mpik_) :: icomm, minfo integer(psb_mpik_), allocatable :: brvindx(:), & & rvsz(:), bsdindx(:),sdsz(:) integer(psb_ipk_), allocatable :: iasnd(:), jasnd(:) @@ -190,7 +190,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& counter = counter+n_el_send+3 Enddo - call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_ipk_integer,rvsz,1,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoall' @@ -274,11 +274,11 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& call mpi_alltoallv(valsnd,sdsz,bsdindx,mpi_double_complex,& - & acoo%val,rvsz,brvindx,mpi_double_complex,icomm,info) + & acoo%val,rvsz,brvindx,mpi_double_complex,icomm,minfo) call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ia,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_ipk_integer,& - & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,info) + & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoallv'