psblas3

base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 Fix mpi type for displacements.
12 years ago · 5af9d3bb15
parent 5ae50031f6
commit 5af9d3bb15
4 changed files with 8 additions and 4 deletions
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@ -190,7 +190,8 @@ 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,minfo)
+  call mpi_alltoall(sdsz,1,psb_mpi_def_integer,& 
+       & rvsz,1,psb_mpi_def_integer,icomm,minfo)
  if (info /= psb_success_) then
    info=psb_err_from_subroutine_
    ch_err='mpi_alltoall'
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@ -190,7 +190,8 @@ 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,minfo)
+  call mpi_alltoall(sdsz,1,psb_mpi_def_integer,& 
+       & rvsz,1,psb_mpi_def_integer,icomm,minfo)
  if (info /= psb_success_) then
    info=psb_err_from_subroutine_
    ch_err='mpi_alltoall'
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@ -190,7 +190,8 @@ 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,minfo)
+  call mpi_alltoall(sdsz,1,psb_mpi_def_integer,& 
+       & rvsz,1,psb_mpi_def_integer,icomm,minfo)
  if (info /= psb_success_) then
    info=psb_err_from_subroutine_
    ch_err='mpi_alltoall'
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@ -190,7 +190,8 @@ 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,minfo)
+  call mpi_alltoall(sdsz,1,psb_mpi_def_integer,& 
+       & rvsz,1,psb_mpi_def_integer,icomm,minfo)
  if (info /= psb_success_) then
    info=psb_err_from_subroutine_
    ch_err='mpi_alltoall'