diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index 8febdb14..41f40b00 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -2630,8 +2630,8 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
   logical             :: rwshr_
   Integer             :: nza, nr, i,j,irw, err_act, nc, icl
   Integer, Parameter  :: maxtry=8
-  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  integer             :: debug_level, debug_unit
+  character(len=20)   :: name='csc_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index 1acc15b8..31e8bac9 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -2266,8 +2266,8 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
   logical             :: rwshr_
   Integer             :: nza, nr, i,j,irw, err_act, nc, icl
   Integer, Parameter  :: maxtry=8
-  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  integer             :: debug_level, debug_unit
+  character(len=20)   :: name='csc_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index f50843e9..f445439f 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -2265,8 +2265,8 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
   logical             :: rwshr_
   Integer             :: nza, nr, i,j,irw, err_act, nc, icl
   Integer, Parameter  :: maxtry=8
-  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  integer             :: debug_level, debug_unit
+  character(len=20)   :: name='csc_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index a28e8d3d..fd90d0bb 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -2630,8 +2630,8 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
   logical             :: rwshr_
   Integer             :: nza, nr, i,j,irw, err_act, nc, icl
   Integer, Parameter  :: maxtry=8
-  integer              :: debug_level, debug_unit
-  character(len=20)   :: name
+  integer             :: debug_level, debug_unit
+  character(len=20)   :: name='csc_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()