psblas3:

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
13 years ago · 9971c24d2f
parent 56fea05537
commit 9971c24d2f
4 changed files with 8 additions and 8 deletions
--- a/base/serial/impl/psb_c_coo_impl.f90
+++ b/base/serial/impl/psb_c_coo_impl.f90
@ -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
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@ -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
--- a/base/serial/impl/psb_z_coo_impl.f90
+++ b/base/serial/impl/psb_z_coo_impl.f90
@ -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
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@ -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