diff --git a/t.cc b/t.cc index b68640e..3519d7f 100644 --- a/t.cc +++ b/t.cc @@ -4506,11 +4506,11 @@ if(0) int n,m; cin>>n >>m; NRSMat > a(n); -a.randomize(.5); +a.randomize(.1); for(int i=0;i > r(m); NRVec > *eivecs = new NRVec >[m]; -davidson(a,r,eivecs,NULL,m,true,1e-6,true,10*n,n*10); +davidson(a,r,eivecs,NULL,m,true,1e-5,true,10*n,n); cout <<"Davidson energies " < &a, const char trans, const T alpha, const NRVec &x); void gemv(const T beta, const NRSMat &a, const char trans /**< just for compatibility reasons */, const T alpha, const NRVec &x); @@ -1832,7 +1832,7 @@ inline const std::complex NRVec >::dot(const std::c std::complex dot; NOT_GPU(*this); if(conjugate) cblas_zdotc_sub(nn, v,1,y, stride, &dot); - else cblas_zdotc_sub(nn, v,1,y, stride, &dot); + else cblas_zdotu_sub(nn, v,1,y, stride, &dot); return dot; }