jiri/LA_library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
jiri
2005-02-18 22:08:15 +00:00
parent 02a868e8aa
commit 6f42b9bb18
15 changed files with 195 additions and 208 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
smat.cc
View File

@@ -248,27 +248,6 @@ NRSMat< complex<double> >::dot(const NRSMat< complex<double> > &rhs) const
return dot;
}
// x = S * x
const NRVec<double> NRSMat<double>::operator*(const NRVec<double> &rhs) const
{
#ifdef DEBUG
if (nn!=rhs.size()) laerror("incompatible dimension in Smat*Vec");
#endif
NRVec<double> result(nn);
cblas_dspmv(CblasRowMajor, CblasLower, nn, 1.0, v, rhs, 1, 0.0, result, 1);
return result;
}
const NRVec< complex<double> >
NRSMat< complex<double> >::operator*(const NRVec< complex<double> > &rhs) const
{
#ifdef DEBUG
if (nn!=rhs.size()) laerror("incompatible dimension in Smat*Vec");
#endif
NRVec< complex<double> > result(nn);
cblas_zhpmv(CblasRowMajor, CblasLower, nn, (void *)(&CONE), (void *)v,
(const void *)rhs, 1, (void *)(&CZERO), (void *)result, 1);
return result;
}
// norm of the matrix
const double NRSMat<double>::norm(const double scalar) const
@@ -347,18 +326,6 @@ istream& operator>>(istream &s, NRSMat<T> &x)
return s;
}
//not implemented yet
const NRVec<int> NRSMat<int>::operator*(NRVec<int> const&rhs) const
{
laerror("NRSMat<int>::operator*(NRVec<int> const&) not implemented yet");
return rhs;
}
const NRVec<char> NRSMat<char>::operator*(NRVec<char> const&rhs) const
{
laerror("NRSMat<char>::operator*(NRVec<char> const&) not implemented yet");
return rhs;
}