fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
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
This commit is contained in:
Salvatore Filippone
2011-10-25 14:33:58 +00:00
parent 56fea05537
commit 9971c24d2f
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_coo_impl.f90
+2 -2
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
base/serial/impl/psb_c_csr_impl.f90
+2 -2
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
base/serial/impl/psb_z_coo_impl.f90
+2 -2
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
base/serial/impl/psb_z_csr_impl.f90
+2 -2
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