diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90
index 7c564b3a..ae4e4698 100644
--- a/base/modules/psb_c_base_mat_mod.f90
+++ b/base/modules/psb_c_base_mat_mod.f90
@@ -428,8 +428,8 @@ module psb_c_base_mat_mod
     subroutine psb_c_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_
-      class(psb_c_base_sparse_mat), intent(in)   :: a
-      class(psb_c_coo_sparse_mat), intent(inout) :: b
+      class(psb_c_base_sparse_mat), intent(in) :: a
+      class(psb_c_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_c_base_mat_mod
     subroutine psb_c_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_
-      class(psb_c_base_sparse_mat), intent(in)   :: a
-      class(psb_c_coo_sparse_mat), intent(inout) :: b
+      class(psb_c_base_sparse_mat), intent(in) :: a
+      class(psb_c_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90
index b208b97e..baf63596 100644
--- a/base/modules/psb_d_base_mat_mod.f90
+++ b/base/modules/psb_d_base_mat_mod.f90
@@ -428,8 +428,8 @@ module psb_d_base_mat_mod
     subroutine psb_d_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_
-      class(psb_d_base_sparse_mat), intent(in)   :: a
-      class(psb_d_coo_sparse_mat), intent(inout) :: b
+      class(psb_d_base_sparse_mat), intent(in) :: a
+      class(psb_d_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_d_base_mat_mod
     subroutine psb_d_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_
-      class(psb_d_base_sparse_mat), intent(in)   :: a
-      class(psb_d_coo_sparse_mat), intent(inout) :: b
+      class(psb_d_base_sparse_mat), intent(in) :: a
+      class(psb_d_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index ebdc1e50..7ac2516e 100644
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@@ -69,7 +69,7 @@ module psb_error_mod
   interface psb_error_handler
     subroutine psb_ser_error_handler(err_act)
       import :: psb_ipk_
-      integer(psb_ipk_), intent(in) ::  err_act
+      integer(psb_ipk_), intent(inout) ::  err_act
     end subroutine psb_ser_error_handler
     subroutine psb_par_error_handler(ictxt,err_act)
       import :: psb_ipk_,psb_mpik_
diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90
index 377a168c..6aec7c8b 100644
--- a/base/modules/psb_s_base_mat_mod.f90
+++ b/base/modules/psb_s_base_mat_mod.f90
@@ -428,8 +428,8 @@ module psb_s_base_mat_mod
     subroutine psb_s_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_
-      class(psb_s_base_sparse_mat), intent(in)   :: a
-      class(psb_s_coo_sparse_mat), intent(inout) :: b
+      class(psb_s_base_sparse_mat), intent(in) :: a
+      class(psb_s_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_s_base_mat_mod
     subroutine psb_s_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_
-      class(psb_s_base_sparse_mat), intent(in)   :: a
-      class(psb_s_coo_sparse_mat), intent(inout) :: b
+      class(psb_s_base_sparse_mat), intent(in) :: a
+      class(psb_s_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90
index b900bb94..ab39c6f8 100644
--- a/base/modules/psb_z_base_mat_mod.f90
+++ b/base/modules/psb_z_base_mat_mod.f90
@@ -428,8 +428,8 @@ module psb_z_base_mat_mod
     subroutine psb_z_base_tril(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_
-      class(psb_z_base_sparse_mat), intent(in)   :: a
-      class(psb_z_coo_sparse_mat), intent(inout) :: b
+      class(psb_z_base_sparse_mat), intent(in) :: a
+      class(psb_z_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
@@ -469,8 +469,8 @@ module psb_z_base_mat_mod
     subroutine psb_z_base_triu(a,b,info,diag,imin,imax,&
          & jmin,jmax,rscale,cscale)
       import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_
-      class(psb_z_base_sparse_mat), intent(in)   :: a
-      class(psb_z_coo_sparse_mat), intent(inout) :: b
+      class(psb_z_base_sparse_mat), intent(in) :: a
+      class(psb_z_coo_sparse_mat), intent(out) :: b
       integer(psb_ipk_),intent(out)              :: info
       integer(psb_ipk_), intent(in), optional    :: diag,imin,imax,jmin,jmax
       logical, intent(in), optional              :: rscale,cscale
diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index ea69b2ea..981118bc 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -2667,7 +2667,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='c_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index e1728baf..1585ddf2 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -2667,7 +2667,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='d_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index ed0a4982..172c459f 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -2667,7 +2667,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='s_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index d9e9cb89..ff1ab064 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -2667,7 +2667,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
   integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc
   integer(psb_ipk_), Parameter  :: maxtry=8
   integer(psb_ipk_) :: debug_level, debug_unit
-  character(len=20)   :: name
+  character(len=20)   :: name='z_cp_csr_from_coo'
 
   info = psb_success_
   debug_unit  = psb_get_debug_unit()