diff --git a/noncblas.cc b/noncblas.cc index 32e4489..1987989 100644 --- a/noncblas.cc +++ b/noncblas.cc @@ -268,7 +268,7 @@ p= (std::complex *) Y; for(int i=0; iimag(-p->imag()); p+= FORNAME(zgerc)(&N, &M, alpha, Y, &incY, X, &incX, A, &lda); #endif //conjugate y back -p= (std::complex *) Y; for(int i=0; iimag(--p->imag()); p+= incY;} +p= (std::complex *) Y; for(int i=0; iimag(-p->imag()); p+= incY;} }