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_coo_impl.f90
 base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_z_coo_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Fixed wrong test for trans=C
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 56fea05537
commit 9971c24d2f
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/impl/psb_c_coo_impl.f90
Unescape Escape View File

@ -1203,7 +1203,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans)
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else
@ -1401,7 +1401,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans)
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else

4
base/serial/impl/psb_c_csr_impl.f90
Unescape Escape View File

@ -50,7 +50,7 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans)
tra = (psb_toupper(trans_) == 'T')
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else
@ -394,7 +394,7 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans)
tra = (psb_toupper(trans_) == 'T')
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else

4
base/serial/impl/psb_z_coo_impl.f90
Unescape Escape View File

@ -1203,7 +1203,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans)
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else
@ -1401,7 +1401,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans)
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else

4
base/serial/impl/psb_z_csr_impl.f90
Unescape Escape View File

@ -51,7 +51,7 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans)
tra = (psb_toupper(trans_) == 'T')
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else
@ -395,7 +395,7 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans)
tra = (psb_toupper(trans_) == 'T')
ctra = (psb_toupper(trans_) == 'C')
if (tra) then
if (tra.or.ctra) then
m = a%get_ncols()
n = a%get_nrows()
else

Write Preview
Loading…
Cancel
Save