fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2014-03-25 13:09:38 +00:00
parent fdaa0f5d74
commit 33724f0b6d
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_base_mat_impl.F90
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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
+1 -1
View File
@@ -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.