From 81329a76f40fbd23aa93e2d050e797510780095a Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sat, 18 Apr 2015 21:12:40 +0000
Subject: [PATCH] *** empty log message ***

---
 base/psblas/psb_dspmm.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90
index da8d5131..39f54af9 100644
--- 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_)