diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90
index cc9ea52e..be100ceb 100644
--- a/base/tools/psb_cspalloc.f90
+++ b/base/tools/psb_cspalloc.f90
@@ -95,7 +95,8 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
   endif
 
   if (debug_level >= psb_debug_ext_) &
-       & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_
+       & write(debug_unit,*) me,' ',trim(name), &
+       & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
   call a%csall(loc_row,loc_col,info,nz=nnz_)
diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90
index 41c3b7c2..e201e219 100644
--- a/base/tools/psb_dspalloc.f90
+++ b/base/tools/psb_dspalloc.f90
@@ -95,7 +95,8 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
   endif
 
   if (debug_level >= psb_debug_ext_) &
-       & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_
+       & write(debug_unit,*) me,' ',trim(name), &
+       & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
   call a%csall(loc_row,loc_col,info,nz=nnz_)
diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90
index a72f268f..98092ea0 100644
--- a/base/tools/psb_sspalloc.f90
+++ b/base/tools/psb_sspalloc.f90
@@ -95,7 +95,8 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
   endif
 
   if (debug_level >= psb_debug_ext_) &
-       & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_
+       & write(debug_unit,*) me,' ',trim(name), &
+       & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
   call a%csall(loc_row,loc_col,info,nz=nnz_)
diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90
index c4685a87..777e24ed 100644
--- a/base/tools/psb_zspalloc.f90
+++ b/base/tools/psb_zspalloc.f90
@@ -95,7 +95,8 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
   endif
 
   if (debug_level >= psb_debug_ext_) &
-       & write(debug_unit,*) me,' ',trim(name),':allocating size:',nnz_
+       & write(debug_unit,*) me,' ',trim(name), &
+       & ':allocating size:',loc_row,loc_col,nnz_
   call a%free()
   !....allocate aspk, ia1, ia2.....
   call a%csall(loc_row,loc_col,info,nz=nnz_)