diff --git a/base/tools/Makefile b/base/tools/Makefile
index dddd1503..d9e1d40d 100644
--- a/base/tools/Makefile
+++ b/base/tools/Makefile
@@ -2,7 +2,7 @@ include ../../Make.inc
 
 FOBJS = psb_dallc.o psb_dasb.o psb_dcsrp.o psb_cdprt.o \
 	psb_dfree.o psb_dgelp.o psb_dins.o \
-	psb_cdall.o psb_cdalv.o psb_cd_inloc.o psb_cdcpy.o \
+	psb_cdals.o psb_cdalv.o psb_cd_inloc.o psb_cdcpy.o \
 	psb_cddec.o psb_cdfree.o psb_cdins.o  \
 	psb_cdren.o psb_cdrep.o psb_cdtransfer.o psb_get_overlap.o\
 	psb_dspalloc.o psb_dspasb.o \
diff --git a/base/tools/psb_cdall.f90 b/base/tools/psb_cdals.f90
similarity index 99%
rename from base/tools/psb_cdall.f90
rename to base/tools/psb_cdals.f90
index deeb6d8e..3018a6cd 100644
--- a/base/tools/psb_cdall.f90
+++ b/base/tools/psb_cdals.f90
@@ -41,7 +41,7 @@
 !    ictxt - integer.                       The communication context.
 !    desc_a  - type(<psb_desc_type>).         The communication descriptor.
 !    info    - integer.                       Eventually returns an error code
-subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
+subroutine psb_cdals(m, n, parts, ictxt, desc_a, info)
   use psb_error_mod
   use psb_descriptor_type
   use psb_realloc_mod
@@ -319,4 +319,4 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
   end if
   return
 
-end subroutine psb_cdall
+end subroutine psb_cdals