diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90
index 054e80ca..f30fea47 100644
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@@ -158,7 +158,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)
 
   l1  = 0
 
diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index 7193d0ee..e4159014 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -158,7 +158,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)
 
   l1  = 0
 
diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90
index 780887bc..5dd43eb1 100644
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@@ -158,7 +158,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)
 
   l1  = 0
 
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index 467ecec4..31fc4adc 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -158,7 +158,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)
 
   l1  = 0