*** empty log message ***

10 years ago · 81329a76f4
parent f764fa2515
commit 81329a76f4
1 changed files with 4 additions and 0 deletions
--- a/base/psblas/psb_dspmm.f90
+++ b/base/psblas/psb_dspmm.f90
@ -815,6 +815,10 @@ subroutine  psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
 !!! THIS SHOULD BE FIXED !!! But beta is almost never /= 0
 !!$    yp(nrow+1:ncol) = dzero
    ! FIXME
    info = psb_err_transpose_not_n_unsupported_
    call psb_errpush(info,name)
    goto 9999
    !  local Matrix-vector product
    if (info == psb_success_) call psb_csmm(alpha,a,x,beta,y,info,trans=trans_)