psblas3:

base/serial/impl/psb_c_base_mat_impl.F90
 base/serial/impl/psb_d_base_mat_impl.F90
 base/serial/impl/psb_s_base_mat_impl.F90
 base/serial/impl/psb_z_base_mat_impl.F90

Fixed comments in TRIU.

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.
 

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.
 

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.
 

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.