Fixed doswap initialization.

17 years ago · 47411166b0
parent f53a40b39a
commit 47411166b0
2 changed files with 2 additions and 2 deletions
--- a/base/psblas/psb_dspmm.f90
+++ b/base/psblas/psb_dspmm.f90
@ -460,7 +460,7 @@ subroutine  psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
  if (present(doswap)) then
    doswap_ = doswap
  else
-    doswap_ = 1
+    doswap_ = .true.
  endif

  if (present(trans)) then     
--- a/base/psblas/psb_zspmm.f90
+++ b/base/psblas/psb_zspmm.f90
@ -460,7 +460,7 @@ subroutine  psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
  if (present(doswap)) then
    doswap_ = doswap
  else
-    doswap_ = 1
+    doswap_ = .true.
  endif

  if (present(trans)) then