diff --git a/amgprec/impl/level/amg_c_base_onelev_descr.f90 b/amgprec/impl/level/amg_c_base_onelev_descr.f90
index 6fe7aef3..41a0f0c0 100644
--- a/amgprec/impl/level/amg_c_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_c_base_onelev_descr.f90
@@ -83,6 +83,8 @@ subroutine amg_c_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity)
   write(iout_,*) 
   if (il == ilmin) then 
     call lv%parms%mlcycledsc(iout_,info)
+  end if
+  if (((ilmin==1).and.(il==2)).or.((ilmin>1).and.(il==ilmin))) then 
     if (allocated(lv%aggr)) then
       call lv%aggr%descr(lv%parms,iout_,info)
     else
diff --git a/amgprec/impl/level/amg_d_base_onelev_descr.f90 b/amgprec/impl/level/amg_d_base_onelev_descr.f90
index 880d5f3d..60e49464 100644
--- a/amgprec/impl/level/amg_d_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_d_base_onelev_descr.f90
@@ -83,6 +83,8 @@ subroutine amg_d_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity)
   write(iout_,*) 
   if (il == ilmin) then 
     call lv%parms%mlcycledsc(iout_,info)
+  end if
+  if (((ilmin==1).and.(il==2)).or.((ilmin>1).and.(il==ilmin))) then 
     if (allocated(lv%aggr)) then
       call lv%aggr%descr(lv%parms,iout_,info)
     else
diff --git a/amgprec/impl/level/amg_s_base_onelev_descr.f90 b/amgprec/impl/level/amg_s_base_onelev_descr.f90
index 94b776eb..b96c005b 100644
--- a/amgprec/impl/level/amg_s_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_s_base_onelev_descr.f90
@@ -83,6 +83,8 @@ subroutine amg_s_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity)
   write(iout_,*) 
   if (il == ilmin) then 
     call lv%parms%mlcycledsc(iout_,info)
+  end if
+  if (((ilmin==1).and.(il==2)).or.((ilmin>1).and.(il==ilmin))) then 
     if (allocated(lv%aggr)) then
       call lv%aggr%descr(lv%parms,iout_,info)
     else
diff --git a/amgprec/impl/level/amg_z_base_onelev_descr.f90 b/amgprec/impl/level/amg_z_base_onelev_descr.f90
index a92cb79e..913289f7 100644
--- a/amgprec/impl/level/amg_z_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_z_base_onelev_descr.f90
@@ -83,6 +83,8 @@ subroutine amg_z_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity)
   write(iout_,*) 
   if (il == ilmin) then 
     call lv%parms%mlcycledsc(iout_,info)
+  end if
+  if (((ilmin==1).and.(il==2)).or.((ilmin>1).and.(il==ilmin))) then 
     if (allocated(lv%aggr)) then
       call lv%aggr%descr(lv%parms,iout_,info)
     else