From 847ed6ae60e981a6bdeb5a98e6519c03be0bf69b Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 17 Nov 2023 14:56:51 +0100 Subject: [PATCH] Estimate rho(BA) --- amgprec/impl/smoother/amg_d_poly_smoother_bld.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/amgprec/impl/smoother/amg_d_poly_smoother_bld.f90 b/amgprec/impl/smoother/amg_d_poly_smoother_bld.f90 index b307fef5..2158e3ae 100644 --- a/amgprec/impl/smoother/amg_d_poly_smoother_bld.f90 +++ b/amgprec/impl/smoother/amg_d_poly_smoother_bld.f90 @@ -134,7 +134,7 @@ subroutine amg_d_poly_smoother_bld(a,desc_a,sm,info,amold,vmold,imold) !write(0,*) 'BLD: lambda estimate ',i,lambda end do sm%rho_ba = lambda - sm%rho_ba = done + !sm%rho_ba = done end block end if