diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90
index ddf11ef3..cc9ea52e 100644
--- a/base/tools/psb_cspalloc.f90
+++ b/base/tools/psb_cspalloc.f90
@@ -53,7 +53,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
 
   !locals
   integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
   integer(psb_lpk_) :: m, n
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90
index 1a57e3f5..41c3b7c2 100644
--- a/base/tools/psb_dspalloc.f90
+++ b/base/tools/psb_dspalloc.f90
@@ -53,7 +53,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz)
 
   !locals
   integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
   integer(psb_lpk_) :: m, n
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90
index e2fe7b27..a72f268f 100644
--- a/base/tools/psb_sspalloc.f90
+++ b/base/tools/psb_sspalloc.f90
@@ -53,7 +53,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz)
 
   !locals
   integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
   integer(psb_lpk_) :: m, n
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name
diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90
index acdcf8b9..c4685a87 100644
--- a/base/tools/psb_zspalloc.f90
+++ b/base/tools/psb_zspalloc.f90
@@ -53,7 +53,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz)
 
   !locals
   integer(psb_ipk_) :: ictxt, np, me, err_act
-  integer(psb_ipk_) :: loc_row,loc_col, nnz_
+  integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype
   integer(psb_lpk_) :: m, n
   integer(psb_ipk_) :: debug_level, debug_unit
   character(len=20)   :: name