diff --git a/amgprec/impl/amg_c_hierarchy_bld.F90 b/amgprec/impl/amg_c_hierarchy_bld.F90
index 37e009ea..6c0bedf0 100644
--- a/amgprec/impl/amg_c_hierarchy_bld.F90
+++ b/amgprec/impl/amg_c_hierarchy_bld.F90
@@ -491,7 +491,7 @@ subroutine amg_c_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
   !write(0,*) 'Should we remap? '
   if (amg_get_do_remap().and.(np>=4)) then
-    write(0,*) 'Going for remapping '
+!!$    write(0,*) 'Going for remapping '
     if (.true.) then 
       associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
         call lv%desc_ac%clone(rmp%desc_ac_pre_remap,info)
@@ -503,8 +503,8 @@ subroutine amg_c_hierarchy_bld(a,desc_a,prec,info,cpymat)
           call psb_remap(np/2,rmp%desc_ac_pre_remap,rmp%ac_pre_remap,&
                & rmp%idest,rmp%isrc,rmp%nrsrc,rmp%naggr,lv%desc_ac,lv%ac,info)
         end if
-        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
-             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
+!!$        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
+!!$             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
         lv%linmap%naggr(:)    =  rmp%naggr(:)
         lv%linmap%p_desc_V => rmp%desc_ac_pre_remap
         lv%base_a          => lv%ac
diff --git a/amgprec/impl/amg_d_hierarchy_bld.F90 b/amgprec/impl/amg_d_hierarchy_bld.F90
index 452a404f..466ce335 100644
--- a/amgprec/impl/amg_d_hierarchy_bld.F90
+++ b/amgprec/impl/amg_d_hierarchy_bld.F90
@@ -434,7 +434,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,&
@@ -492,7 +491,7 @@ subroutine amg_d_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
   !write(0,*) 'Should we remap? '
   if (amg_get_do_remap().and.(np>=4)) then
-    write(0,*) 'Going for remapping '
+!!$    write(0,*) 'Going for remapping '
     if (.true.) then 
       associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
         call lv%desc_ac%clone(rmp%desc_ac_pre_remap,info)
@@ -504,8 +503,8 @@ subroutine amg_d_hierarchy_bld(a,desc_a,prec,info,cpymat)
           call psb_remap(np/2,rmp%desc_ac_pre_remap,rmp%ac_pre_remap,&
                & rmp%idest,rmp%isrc,rmp%nrsrc,rmp%naggr,lv%desc_ac,lv%ac,info)
         end if
-        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
-             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
+!!$        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
+!!$             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
         lv%linmap%naggr(:)    =  rmp%naggr(:)
         lv%linmap%p_desc_V => rmp%desc_ac_pre_remap
         lv%base_a          => lv%ac
diff --git a/amgprec/impl/amg_s_hierarchy_bld.F90 b/amgprec/impl/amg_s_hierarchy_bld.F90
index 454847ef..53d4534f 100644
--- a/amgprec/impl/amg_s_hierarchy_bld.F90
+++ b/amgprec/impl/amg_s_hierarchy_bld.F90
@@ -491,7 +491,7 @@ subroutine amg_s_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
   !write(0,*) 'Should we remap? '
   if (amg_get_do_remap().and.(np>=4)) then
-    write(0,*) 'Going for remapping '
+!!$    write(0,*) 'Going for remapping '
     if (.true.) then 
       associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
         call lv%desc_ac%clone(rmp%desc_ac_pre_remap,info)
@@ -503,8 +503,8 @@ subroutine amg_s_hierarchy_bld(a,desc_a,prec,info,cpymat)
           call psb_remap(np/2,rmp%desc_ac_pre_remap,rmp%ac_pre_remap,&
                & rmp%idest,rmp%isrc,rmp%nrsrc,rmp%naggr,lv%desc_ac,lv%ac,info)
         end if
-        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
-             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
+!!$        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
+!!$             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
         lv%linmap%naggr(:)    =  rmp%naggr(:)
         lv%linmap%p_desc_V => rmp%desc_ac_pre_remap
         lv%base_a          => lv%ac
diff --git a/amgprec/impl/amg_z_hierarchy_bld.F90 b/amgprec/impl/amg_z_hierarchy_bld.F90
index 6678530a..9c1da2d2 100644
--- a/amgprec/impl/amg_z_hierarchy_bld.F90
+++ b/amgprec/impl/amg_z_hierarchy_bld.F90
@@ -491,7 +491,7 @@ subroutine amg_z_hierarchy_bld(a,desc_a,prec,info,cpymat)
 
   !write(0,*) 'Should we remap? '
   if (amg_get_do_remap().and.(np>=4)) then
-    write(0,*) 'Going for remapping '
+!!$    write(0,*) 'Going for remapping '
     if (.true.) then 
       associate(lv=>prec%precv(iszv), rmp => prec%precv(iszv)%remap_data)
         call lv%desc_ac%clone(rmp%desc_ac_pre_remap,info)
@@ -503,8 +503,8 @@ subroutine amg_z_hierarchy_bld(a,desc_a,prec,info,cpymat)
           call psb_remap(np/2,rmp%desc_ac_pre_remap,rmp%ac_pre_remap,&
                & rmp%idest,rmp%isrc,rmp%nrsrc,rmp%naggr,lv%desc_ac,lv%ac,info)
         end if
-        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
-             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
+!!$        write(0,*) me,' Out of remapping ',rmp%desc_ac_pre_remap%get_fmt(),' ',&
+!!$             & lv%desc_ac%get_fmt(),sum(lv%linmap%naggr),sum(rmp%naggr)
         lv%linmap%naggr(:)    =  rmp%naggr(:)
         lv%linmap%p_desc_V => rmp%desc_ac_pre_remap
         lv%base_a          => lv%ac
diff --git a/amgprec/impl/level/amg_c_base_onelev_map_prol.F90 b/amgprec/impl/level/amg_c_base_onelev_map_prol.F90
index 9657280f..4c5ecd0d 100644
--- a/amgprec/impl/level/amg_c_base_onelev_map_prol.F90
+++ b/amgprec/impl/level/amg_c_base_onelev_map_prol.F90
@@ -125,7 +125,7 @@ subroutine amg_c_base_onelev_map_prol_a(lv,alpha,v,beta,u,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap P handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_V2U(alpha,v,beta,u,info,&
diff --git a/amgprec/impl/level/amg_c_base_onelev_map_rstr.F90 b/amgprec/impl/level/amg_c_base_onelev_map_rstr.F90
index b42b7d7f..3afce5f8 100644
--- a/amgprec/impl/level/amg_c_base_onelev_map_rstr.F90
+++ b/amgprec/impl/level/amg_c_base_onelev_map_rstr.F90
@@ -119,7 +119,7 @@ subroutine amg_c_base_onelev_map_rstr_a(lv,alpha,u,beta,v,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap R handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_U2V(alpha,u,beta,v,info,&
diff --git a/amgprec/impl/level/amg_d_base_onelev_map_prol.F90 b/amgprec/impl/level/amg_d_base_onelev_map_prol.F90
index c55411a4..8619a8e9 100644
--- a/amgprec/impl/level/amg_d_base_onelev_map_prol.F90
+++ b/amgprec/impl/level/amg_d_base_onelev_map_prol.F90
@@ -125,7 +125,7 @@ subroutine amg_d_base_onelev_map_prol_a(lv,alpha,v,beta,u,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap P handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_V2U(alpha,v,beta,u,info,&
diff --git a/amgprec/impl/level/amg_d_base_onelev_map_rstr.F90 b/amgprec/impl/level/amg_d_base_onelev_map_rstr.F90
index c132d63c..b1f6dd6b 100644
--- a/amgprec/impl/level/amg_d_base_onelev_map_rstr.F90
+++ b/amgprec/impl/level/amg_d_base_onelev_map_rstr.F90
@@ -119,7 +119,7 @@ subroutine amg_d_base_onelev_map_rstr_a(lv,alpha,u,beta,v,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap R handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_U2V(alpha,u,beta,v,info,&
diff --git a/amgprec/impl/level/amg_s_base_onelev_map_prol.F90 b/amgprec/impl/level/amg_s_base_onelev_map_prol.F90
index e927a69d..20324056 100644
--- a/amgprec/impl/level/amg_s_base_onelev_map_prol.F90
+++ b/amgprec/impl/level/amg_s_base_onelev_map_prol.F90
@@ -125,7 +125,7 @@ subroutine amg_s_base_onelev_map_prol_a(lv,alpha,v,beta,u,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap P handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_V2U(alpha,v,beta,u,info,&
diff --git a/amgprec/impl/level/amg_s_base_onelev_map_rstr.F90 b/amgprec/impl/level/amg_s_base_onelev_map_rstr.F90
index 492c3d1b..f24c9f53 100644
--- a/amgprec/impl/level/amg_s_base_onelev_map_rstr.F90
+++ b/amgprec/impl/level/amg_s_base_onelev_map_rstr.F90
@@ -119,7 +119,7 @@ subroutine amg_s_base_onelev_map_rstr_a(lv,alpha,u,beta,v,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap R handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_U2V(alpha,u,beta,v,info,&
diff --git a/amgprec/impl/level/amg_z_base_onelev_map_prol.F90 b/amgprec/impl/level/amg_z_base_onelev_map_prol.F90
index 52568a8f..2f662566 100644
--- a/amgprec/impl/level/amg_z_base_onelev_map_prol.F90
+++ b/amgprec/impl/level/amg_z_base_onelev_map_prol.F90
@@ -125,7 +125,7 @@ subroutine amg_z_base_onelev_map_prol_a(lv,alpha,v,beta,u,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap P handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_V2U(alpha,v,beta,u,info,&
diff --git a/amgprec/impl/level/amg_z_base_onelev_map_rstr.F90 b/amgprec/impl/level/amg_z_base_onelev_map_rstr.F90
index 418d9be1..8986a78b 100644
--- a/amgprec/impl/level/amg_z_base_onelev_map_rstr.F90
+++ b/amgprec/impl/level/amg_z_base_onelev_map_rstr.F90
@@ -119,7 +119,7 @@ subroutine amg_z_base_onelev_map_rstr_a(lv,alpha,u,beta,v,info,work)
     !
     ! Remap has happened, deal with it
     !
-    write(0,*) 'Remap handling not implemented yet '
+    write(0,*) 'Remap R handling not implemented yet for A'
   else
     ! Default transfer
     call lv%linmap%map_U2V(alpha,u,beta,v,info,&