*** empty log message ***

base/psblas/psb_dspmm.f90

@@ -141,12 +141,9 @@ subroutine  psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
   endif
 
   if (present(trans)) then     
-    if ( (toupper(trans) == 'N').or.(toupper(trans) == 'T')) then
+    if ( (toupper(trans) == 'N').or.(toupper(trans) == 'T')&
+         & .or.(toupper(trans) == 'C')) then
       itrans = toupper(trans)
-    else if (toupper(trans) == 'C') then
-      info = 3020
-      call psb_errpush(info,name)
-      goto 9999
     else
       info = 70
       call psb_errpush(info,name)
@@ -467,12 +464,9 @@ subroutine  psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
   endif
 
   if (present(trans)) then     
-    if ( (toupper(trans) == 'N').or.(toupper(trans) == 'T')) then
+    if ( (toupper(trans) == 'N').or.(toupper(trans) == 'T')&
+         & .or. (toupper(trans) == 'C')) then 
       itrans = toupper(trans)
-    else if (toupper(trans) == 'C') then
-      info = 3020
-      call psb_errpush(info,name)
-      goto 9999
     else
       info = 70
       call psb_errpush(info,name)