Estimate rho(BA)

1 year ago · 847ed6ae60
parent 6ad82037c5
commit 847ed6ae60
1 changed files with 1 additions and 1 deletions
--- 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