Fixed small bugs in TRANS handling.

19 years ago · 9bb64be14d
parent 55a22b9c73
commit 9bb64be14d
2 changed files with 258 additions and 256 deletions
--- a/src/psblas/psb_dspmm.f90
+++ b/src/psblas/psb_dspmm.f90
@ -160,9 +160,10 @@ subroutine  psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
  endif

  if (present(trans)) then     
-     if((trans.eq.'N').or.(trans.eq.'T')) then
+    if ((trans.eq.'N').or.(trans.eq.'T')&
+         & .or.(trans.eq.'n').or.(trans.eq.'t')) then
      itrans = trans
-     else if (trans.eq.'C') then
+    else if ((trans.eq.'C').or.(trans.eq.'c')) then
      info = 3020
      call psb_errpush(info,name)
      goto 9999
--- a/src/psblas/psb_dspsm.f90
+++ b/src/psblas/psb_dspsm.f90
@ -165,9 +165,10 @@ subroutine  psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
  endif

  if (present(trans)) then     
-     if((trans.eq.'N').or.(trans.eq.'T')) then
+    if ((trans.eq.'N').or.(trans.eq.'T')&
+         & .or.(trans.eq.'n').or.(trans.eq.'t')) then
      itrans = trans
-     else if (trans.eq.'C') then
+    else if ((trans.eq.'C').or.(trans.eq.'c')) then
      info = 3020
      call psb_errpush(info,name)
      goto 9999