Deactivate MINNRG

4 years ago · 7319dab30f
parent 4bbba3ebd7
commit 7319dab30f
4 changed files with 12 additions and 0 deletions
--- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90
@ -154,6 +154,9 @@ subroutine amg_caggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&

  ctxt = desc_a%get_context()
  icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90
@ -154,6 +154,9 @@ subroutine amg_daggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&

  ctxt = desc_a%get_context()
  icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90
@ -154,6 +154,9 @@ subroutine amg_saggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&

  ctxt = desc_a%get_context()
  icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      

  call psb_info(ctxt, me, np)

--- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
+++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90
@ -154,6 +154,9 @@ subroutine amg_zaggrmat_minnrg_bld(a,desc_a,ilaggr,nlaggr,parms,&

  ctxt = desc_a%get_context()
  icomm = desc_a%get_mpic()
+  info=psb_err_internal_error_
+  call psb_errpush(info,name)
+  goto 9999      

  call psb_info(ctxt, me, np)