*** empty log message ***

This commit is contained in:
jiri 2006-04-02 19:38:20 +00:00
parent a32b38d141
commit 8c522b6f3a

View File

@ -881,7 +881,7 @@ void NRVec<T>::gemv(const T beta, const SparseMat<T> &a, const char trans, const
{ {
if((trans=='n'?a.ncols():a.nrows())!= (SPMatindex)x.size()) laerror("incompatible sizes in gemv"); if((trans=='n'?a.ncols():a.nrows())!= (SPMatindex)x.size()) laerror("incompatible sizes in gemv");
copyonwrite(); copyonwrite();
if(beta!=(T)0) (*this) *= beta; if(beta!=(T)0) {if(beta!=(T)1) (*this) *= beta;}
else memset(v,0,nn*sizeof(T)); else memset(v,0,nn*sizeof(T));
bool transp = tolower(trans)!='n'; //not OK for complex bool transp = tolower(trans)!='n'; //not OK for complex