Adjust strategy for stopping on aggregation ratio

amgprec/impl/amg_c_hierarchy_bld.F90

@@ -366,14 +366,10 @@ subroutine amg_c_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
     if (i>2) then
       if (sizeratio < mnaggratio) then
-        if (sizeratio > 1) then
+        !
-          newsz = i
+        ! We are not gaining 
-        else
+        !
-          !
+        newsz = i-1
-          ! We are not gaining 
-          !
-          newsz = i-1
-        end if
       end if
 
       if (all(nlaggr == prec%precv(i-1)%linmap%naggr)) then 

amgprec/impl/amg_d_hierarchy_bld.F90

@@ -366,14 +366,10 @@ subroutine amg_d_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
     if (i>2) then
       if (sizeratio < mnaggratio) then
-        if (sizeratio > 1) then
+        !
-          newsz = i
+        ! We are not gaining 
-        else
+        !
-          !
+        newsz = i-1
-          ! We are not gaining 
-          !
-          newsz = i-1
-        end if
       end if
 
       if (all(nlaggr == prec%precv(i-1)%linmap%naggr)) then 
@@ -434,7 +430,6 @@ subroutine amg_d_hierarchy_bld(a,desc_a,prec,info,cpymat)
            & ilaggr,nlaggr,op_prol,info)
       if (do_timings) call psb_toc(idx_matasb)      
     end if
-
     if (info /= psb_success_) then 
       write(ch_err,'(a,i7)') 'Mat asb fail @ level ',i
       call psb_errpush(psb_err_internal_error_,name,&

amgprec/impl/amg_s_hierarchy_bld.F90

@@ -366,14 +366,10 @@ subroutine amg_s_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
     if (i>2) then
       if (sizeratio < mnaggratio) then
-        if (sizeratio > 1) then
+        !
-          newsz = i
+        ! We are not gaining 
-        else
+        !
-          !
+        newsz = i-1
-          ! We are not gaining 
-          !
-          newsz = i-1
-        end if
       end if
 
       if (all(nlaggr == prec%precv(i-1)%linmap%naggr)) then 

amgprec/impl/amg_z_hierarchy_bld.F90

@@ -366,14 +366,10 @@ subroutine amg_z_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
     if (i>2) then
       if (sizeratio < mnaggratio) then
-        if (sizeratio > 1) then
+        !
-          newsz = i
+        ! We are not gaining 
-        else
+        !
-          !
+        newsz = i-1
-          ! We are not gaining 
-          !
-          newsz = i-1
-        end if
       end if
 
       if (all(nlaggr == prec%precv(i-1)%linmap%naggr)) then