From 8482067b52d135be6cdf6e989455aa9e8351b6f0 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 28 Jun 2021 18:42:34 +0200 Subject: [PATCH] Deactivate MINNRG --- amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 | 3 --- amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 | 3 --- amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 | 3 --- amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 | 3 --- 4 files changed, 12 deletions(-) diff --git a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 index f8223877..612c2953 100644 --- a/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_caggrmat_minnrg_bld.f90 @@ -154,9 +154,6 @@ 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) diff --git a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 index aaa1c52f..f7b21847 100644 --- a/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_daggrmat_minnrg_bld.f90 @@ -154,9 +154,6 @@ 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) diff --git a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 index 50d85713..66514a66 100644 --- a/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_saggrmat_minnrg_bld.f90 @@ -154,9 +154,6 @@ 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) diff --git a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 index 90adcf9b..89d6d89d 100644 --- a/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 +++ b/amgprec/impl/aggregator/amg_zaggrmat_minnrg_bld.f90 @@ -154,9 +154,6 @@ 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)