From f4543fc8b562ce0bc24776fc661542adcd8f3977 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 20 Nov 2019 14:21:20 +0000 Subject: [PATCH] get_mpicomm is now a function --- 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 b4f9c0f0..dfab182b 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/)) - call psb_get_mpicomm(ictxt1, icomm) + icomm = psb_get_mpicomm(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 - call psb_get_mpicomm(ictxt,icomm) + icomm = psb_get_mpicomm(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 246ef823..f63e1947 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/)) - call psb_get_mpicomm(ictxt1, icomm) + icomm = psb_get_mpicomm(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 - call psb_get_mpicomm(ictxt,icomm) + icomm = psb_get_mpicomm(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 6f7f9f15..cbdfc151 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/)) - call psb_get_mpicomm(ictxt1, icomm) + icomm = psb_get_mpicomm(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 - call psb_get_mpicomm(ictxt,icomm) + icomm = psb_get_mpicomm(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 65c29482..7ed84f2f 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/)) - call psb_get_mpicomm(ictxt1, icomm) + icomm = psb_get_mpicomm(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 - call psb_get_mpicomm(ictxt,icomm) + icomm = psb_get_mpicomm(ictxt) !write(*,*)iam,'mumps_bld: global +++++>',icomm,ictxt call psb_info(ictxt, iam, np) me = iam