diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90
index 0127d00f..3db1e620 100644
--- a/base/serial/impl/psb_c_coo_impl.F90
+++ b/base/serial/impl/psb_c_coo_impl.F90
@@ -5904,7 +5904,7 @@ contains
     integer(psb_lpk_), optional                    :: iren(:)
     integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
     integer(psb_ipk_) :: debug_level, debug_unit, inza
-    character(len=20) :: name='coo_getrow'
+    character(len=20) :: name='lcoo_getrow'
 
     debug_unit  = psb_get_debug_unit()
     debug_level = psb_get_debug_level()
diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90
index 7e835261..11623973 100644
--- a/base/serial/impl/psb_d_coo_impl.F90
+++ b/base/serial/impl/psb_d_coo_impl.F90
@@ -5904,7 +5904,7 @@ contains
     integer(psb_lpk_), optional                    :: iren(:)
     integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
     integer(psb_ipk_) :: debug_level, debug_unit, inza
-    character(len=20) :: name='coo_getrow'
+    character(len=20) :: name='lcoo_getrow'
 
     debug_unit  = psb_get_debug_unit()
     debug_level = psb_get_debug_level()
diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90
index 67725ffb..42d9849d 100644
--- a/base/serial/impl/psb_s_coo_impl.F90
+++ b/base/serial/impl/psb_s_coo_impl.F90
@@ -5904,7 +5904,7 @@ contains
     integer(psb_lpk_), optional                    :: iren(:)
     integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
     integer(psb_ipk_) :: debug_level, debug_unit, inza
-    character(len=20) :: name='coo_getrow'
+    character(len=20) :: name='lcoo_getrow'
 
     debug_unit  = psb_get_debug_unit()
     debug_level = psb_get_debug_level()
diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90
index 158f1ffe..4680d799 100644
--- a/base/serial/impl/psb_z_coo_impl.F90
+++ b/base/serial/impl/psb_z_coo_impl.F90
@@ -5904,7 +5904,7 @@ contains
     integer(psb_lpk_), optional                    :: iren(:)
     integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd
     integer(psb_ipk_) :: debug_level, debug_unit, inza
-    character(len=20) :: name='coo_getrow'
+    character(len=20) :: name='lcoo_getrow'
 
     debug_unit  = psb_get_debug_unit()
     debug_level = psb_get_debug_level()