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

continueing on polynomials, fix of NRVec unary minus

Browse Source
This commit is contained in:
Jiri Pittner
2021-06-10 17:44:54 +02:00
parent e8ca6b583e
commit 30861fdac6
5 changed files with 132 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vec.cc
View File

@@ -153,10 +153,10 @@ const NRVec<double> NRVec<double>::operator-() const {
#ifdef CUDALA
if(location == cpu){
#endif
cblas_dscal(nn, -1.0, v, 1);
cblas_dscal(nn, -1.0, result.v, 1);
#ifdef CUDALA
}else{
cublasDscal(nn, -1.0, v, 1);
cublasDscal(nn, -1.0, result.v, 1);
TEST_CUBLAS("cublasDscal");
}
#endif
@@ -174,10 +174,10 @@ const NRVec<std::complex<double> > NRVec<std::complex<double> >::operator-() con
#ifdef CUDALA
if(location == cpu){
#endif
cblas_zdscal(nn, -1.0, v, 1);
cblas_zdscal(nn, -1.0, result.v, 1);
#ifdef CUDALA
}else{
cublasZdscal(nn, -1.0, (cuDoubleComplex*)v, 1);
cublasZdscal(nn, -1.0, (cuDoubleComplex*)result.v, 1);
TEST_CUBLAS("cublasZdscal");
}
#endif