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

typo in noncblas.cc

Browse Source
This commit is contained in:
Jiri Pittner 2023-04-28 16:09:26 +02:00
parent 5f1dd5f6e8
commit 525572a0a1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
noncblas.cc
View File

@ -268,7 +268,7 @@ p= (std::complex<double> *) Y; for(int i=0; i<N; ++i) {p->imag(-p->imag()); p+=
FORNAME(zgerc)(&N, &M, alpha, Y, &incY, X, &incX, A, &lda); FORNAME(zgerc)(&N, &M, alpha, Y, &incY, X, &incX, A, &lda);
#endif #endif
//conjugate y back //conjugate y back
p= (std::complex<double> *) Y; for(int i=0; i<N; ++i) {p->imag(--p->imag()); p+= incY;} p= (std::complex<double> *) Y; for(int i=0; i<N; ++i) {p->imag(-p->imag()); p+= incY;}
} }