diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90
index 7b16cdf4..3af4fed0 100644
--- a/base/serial/impl/psb_c_base_mat_impl.F90
+++ b/base/serial/impl/psb_c_base_mat_impl.F90
@@ -720,7 +720,7 @@ subroutine psb_c_base_triu(a,b,info,&
   integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k 
   integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
   integer(psb_ipk_) :: ierr(5)
-  character(len=20)  :: name='tril'
+  character(len=20)  :: name='triu'
   logical :: rscale_, cscale_
   logical, parameter :: debug=.false.
 
diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90
index 6032018d..e41806b4 100644
--- a/base/serial/impl/psb_d_base_mat_impl.F90
+++ b/base/serial/impl/psb_d_base_mat_impl.F90
@@ -720,7 +720,7 @@ subroutine psb_d_base_triu(a,b,info,&
   integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k 
   integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
   integer(psb_ipk_) :: ierr(5)
-  character(len=20)  :: name='tril'
+  character(len=20)  :: name='triu'
   logical :: rscale_, cscale_
   logical, parameter :: debug=.false.
 
diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90
index 48cdc613..e6e21040 100644
--- a/base/serial/impl/psb_s_base_mat_impl.F90
+++ b/base/serial/impl/psb_s_base_mat_impl.F90
@@ -720,7 +720,7 @@ subroutine psb_s_base_triu(a,b,info,&
   integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k 
   integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
   integer(psb_ipk_) :: ierr(5)
-  character(len=20)  :: name='tril'
+  character(len=20)  :: name='triu'
   logical :: rscale_, cscale_
   logical, parameter :: debug=.false.
 
diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90
index 88c178c5..0faadd0e 100644
--- a/base/serial/impl/psb_z_base_mat_impl.F90
+++ b/base/serial/impl/psb_z_base_mat_impl.F90
@@ -720,7 +720,7 @@ subroutine psb_z_base_triu(a,b,info,&
   integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k 
   integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
   integer(psb_ipk_) :: ierr(5)
-  character(len=20)  :: name='tril'
+  character(len=20)  :: name='triu'
   logical :: rscale_, cscale_
   logical, parameter :: debug=.false.