fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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.
psblas-3.2.0
Salvatore Filippone 11 years ago
parent fdaa0f5d74
commit 33724f0b6d
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
base/serial/impl/psb_c_base_mat_impl.F90
Unescape Escape 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_) :: err_act, nzin, nzout, i, j, k
integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_ integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
integer(psb_ipk_) :: ierr(5) integer(psb_ipk_) :: ierr(5)
character(len=20) :: name='tril' character(len=20) :: name='triu'
logical :: rscale_, cscale_ logical :: rscale_, cscale_
logical, parameter :: debug=.false. logical, parameter :: debug=.false.

2
base/serial/impl/psb_d_base_mat_impl.F90
Unescape Escape 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_) :: err_act, nzin, nzout, i, j, k
integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_ integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
integer(psb_ipk_) :: ierr(5) integer(psb_ipk_) :: ierr(5)
character(len=20) :: name='tril' character(len=20) :: name='triu'
logical :: rscale_, cscale_ logical :: rscale_, cscale_
logical, parameter :: debug=.false. logical, parameter :: debug=.false.

2
base/serial/impl/psb_s_base_mat_impl.F90
Unescape Escape 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_) :: err_act, nzin, nzout, i, j, k
integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_ integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
integer(psb_ipk_) :: ierr(5) integer(psb_ipk_) :: ierr(5)
character(len=20) :: name='tril' character(len=20) :: name='triu'
logical :: rscale_, cscale_ logical :: rscale_, cscale_
logical, parameter :: debug=.false. logical, parameter :: debug=.false.

2
base/serial/impl/psb_z_base_mat_impl.F90
Unescape Escape 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_) :: err_act, nzin, nzout, i, j, k
integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_ integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_
integer(psb_ipk_) :: ierr(5) integer(psb_ipk_) :: ierr(5)
character(len=20) :: name='tril' character(len=20) :: name='triu'
logical :: rscale_, cscale_ logical :: rscale_, cscale_
logical, parameter :: debug=.false. logical, parameter :: debug=.false.

Write Preview
Loading…
Cancel
Save