diff --git a/base/tools/psb_cd_renum_block.F90 b/base/tools/psb_cd_renum_block.F90
index bd064187..f0931f1e 100644
--- a/base/tools/psb_cd_renum_block.F90
+++ b/base/tools/psb_cd_renum_block.F90
@@ -31,7 +31,8 @@
 !    
 !
 ! Subroutine: psb_cd_renum_block
-!   Produces a clone of a descriptor.
+!   Produces a renumbered version of the input descriptor, with
+!   global indices in a BLOCK distribution. 
 ! 
 ! Arguments: 
 !    desc_in  - type(psb_desc_type).         The communication descriptor to be cloned.
diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90
index f8008bf8..b4307bc1 100644
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@@ -276,7 +276,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
         call psb_errpush(info,name,a_err=ch_err)
         goto 9999
       end if
-      tot_elem=tot_elem+n_elem
+      tot_elem=tot_elem+ngtz
     Enddo
     ipx = ipx + 1 
     counter   = counter+n_el_send+3
diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index c2aa2538..3d9bfbcb 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -276,7 +276,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
         call psb_errpush(info,name,a_err=ch_err)
         goto 9999
       end if
-      tot_elem=tot_elem+n_elem
+      tot_elem=tot_elem+ngtz
     Enddo
     ipx = ipx + 1 
     counter   = counter+n_el_send+3
diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90
index 8534a838..542986b2 100644
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@@ -276,7 +276,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
         call psb_errpush(info,name,a_err=ch_err)
         goto 9999
       end if
-      tot_elem=tot_elem+n_elem
+      tot_elem=tot_elem+ngtz
     Enddo
     ipx = ipx + 1 
     counter   = counter+n_el_send+3
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index e17d30a5..c66ba942 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -276,7 +276,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
         call psb_errpush(info,name,a_err=ch_err)
         goto 9999
       end if
-      tot_elem=tot_elem+n_elem
+      tot_elem=tot_elem+ngtz
     Enddo
     ipx = ipx + 1 
     counter   = counter+n_el_send+3