From 9d38bff67478ee5fa66ba2fcae0677e5a1557747 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 11 Dec 2019 10:33:58 +0000 Subject: [PATCH] New get_mpi_comm and get_mpi_rank --- mlprec/impl/solver/mld_c_mumps_solver_bld.F90 | 4 ++-- mlprec/impl/solver/mld_d_mumps_solver_bld.F90 | 4 ++-- mlprec/impl/solver/mld_s_mumps_solver_bld.F90 | 4 ++-- mlprec/impl/solver/mld_z_mumps_solver_bld.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 index dfab182b..a1c8a9e1 100644 --- a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 @@ -78,14 +78,14 @@ subroutine c_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_info(ictxt, iam, np) if (sv%ipar(1) == mld_local_solver_ ) then call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/)) - icomm = psb_get_mpicomm(ictxt1) + icomm = psb_get_mpi_comm(ictxt1) allocate(sv%local_ictxt,stat=info) sv%local_ictxt = ictxt1 !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt call psb_info(ictxt1, me, np) npr = np else if (sv%ipar(1) == mld_global_solver_ ) then - icomm = psb_get_mpicomm(ictxt) + icomm = psb_get_mpi_comm(ictxt) !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt call psb_info(ictxt, iam, np) me = iam diff --git a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 index f63e1947..bcc4dc26 100644 --- a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 @@ -78,14 +78,14 @@ subroutine d_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_info(ictxt, iam, np) if (sv%ipar(1) == mld_local_solver_ ) then call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/)) - icomm = psb_get_mpicomm(ictxt1) + icomm = psb_get_mpi_comm(ictxt1) allocate(sv%local_ictxt,stat=info) sv%local_ictxt = ictxt1 !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt call psb_info(ictxt1, me, np) npr = np else if (sv%ipar(1) == mld_global_solver_ ) then - icomm = psb_get_mpicomm(ictxt) + icomm = psb_get_mpi_comm(ictxt) !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt call psb_info(ictxt, iam, np) me = iam diff --git a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 index cbdfc151..f1c7ebc3 100644 --- a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 @@ -78,14 +78,14 @@ subroutine s_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_info(ictxt, iam, np) if (sv%ipar(1) == mld_local_solver_ ) then call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/)) - icomm = psb_get_mpicomm(ictxt1) + icomm = psb_get_mpi_comm(ictxt1) allocate(sv%local_ictxt,stat=info) sv%local_ictxt = ictxt1 !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt call psb_info(ictxt1, me, np) npr = np else if (sv%ipar(1) == mld_global_solver_ ) then - icomm = psb_get_mpicomm(ictxt) + icomm = psb_get_mpi_comm(ictxt) !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt call psb_info(ictxt, iam, np) me = iam diff --git a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 index 7ed84f2f..bcc88493 100644 --- a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 @@ -78,14 +78,14 @@ subroutine z_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold) call psb_info(ictxt, iam, np) if (sv%ipar(1) == mld_local_solver_ ) then call psb_init(ictxt1,np=1,basectxt=ictxt,ids=(/iam/)) - icomm = psb_get_mpicomm(ictxt1) + icomm = psb_get_mpi_comm(ictxt1) allocate(sv%local_ictxt,stat=info) sv%local_ictxt = ictxt1 !write(*,*)iam,'mumps_bld: local +++++>',icomm,sv%local_ictxt call psb_info(ictxt1, me, np) npr = np else if (sv%ipar(1) == mld_global_solver_ ) then - icomm = psb_get_mpicomm(ictxt) + icomm = psb_get_mpi_comm(ictxt) !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt call psb_info(ictxt, iam, np) me = iam