Fix compilation for new use of MPIC

2 months ago · f760396403
parent 8f259367de
commit f760396403
4 changed files with 4 additions and 4 deletions
--- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
@ -155,7 +155,7 @@ subroutine amg_caggrmat_minnrg_bld(dol1smoothing,a,desc_a,ilaggr,nlaggr,&
  debug_level = psb_get_debug_level()

  ctxt = desc_a%get_context()
-  icomm = desc_a%get_mpic()
+  icomm = ctxt%get_mpic()

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
@ -155,7 +155,7 @@ subroutine amg_daggrmat_minnrg_bld(dol1smoothing,a,desc_a,ilaggr,nlaggr,&
  debug_level = psb_get_debug_level()

  ctxt = desc_a%get_context()
-  icomm = desc_a%get_mpic()
+  icomm = ctxt%get_mpic()

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
@ -155,7 +155,7 @@ subroutine amg_saggrmat_minnrg_bld(dol1smoothing,a,desc_a,ilaggr,nlaggr,&
  debug_level = psb_get_debug_level()

  ctxt = desc_a%get_context()
-  icomm = desc_a%get_mpic()
+  icomm = ctxt%get_mpic()

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
@ -155,7 +155,7 @@ subroutine amg_zaggrmat_minnrg_bld(dol1smoothing,a,desc_a,ilaggr,nlaggr,&
  debug_level = psb_get_debug_level()

  ctxt = desc_a%get_context()
-  icomm = desc_a%get_mpic()
+  icomm = ctxt%get_mpic()

  call psb_info(ctxt, me, np)