mirror of
https://github.com/paboyle/Grid.git
synced 2025-04-09 21:50:45 +01:00
Slightly less verbose
This commit is contained in:
parent
2525ad4623
commit
48ff655bad
@ -465,7 +465,7 @@ until convergence
|
|||||||
|
|
||||||
Field& evec_k = evec[k];
|
Field& evec_k = evec[k];
|
||||||
|
|
||||||
_PolyOp(evec_k,w); std::cout<<GridLogIRL << "PolyOp" <<std::endl;
|
_PolyOp(evec_k,w); std::cout<<GridLogDebug << "PolyOp" <<std::endl;
|
||||||
|
|
||||||
if(k>0) w -= lme[k-1] * evec[k-1];
|
if(k>0) w -= lme[k-1] * evec[k-1];
|
||||||
|
|
||||||
@ -480,9 +480,9 @@ until convergence
|
|||||||
lme[k] = beta;
|
lme[k] = beta;
|
||||||
|
|
||||||
if ( (k>0) && ( (k % orth_period) == 0 )) {
|
if ( (k>0) && ( (k % orth_period) == 0 )) {
|
||||||
std::cout<<GridLogIRL << "Orthogonalising " <<k<<std::endl;
|
std::cout<<GridLogDebug << "Orthogonalising " <<k<<std::endl;
|
||||||
orthogonalize(w,evec,k); // orthonormalise
|
orthogonalize(w,evec,k); // orthonormalise
|
||||||
std::cout<<GridLogIRL << "Orthogonalised " <<k<<std::endl;
|
std::cout<<GridLogDebug << "Orthogonalised " <<k<<std::endl;
|
||||||
}
|
}
|
||||||
|
|
||||||
if(k < Nm-1) evec[k+1] = w;
|
if(k < Nm-1) evec[k+1] = w;
|
||||||
@ -491,7 +491,7 @@ until convergence
|
|||||||
if ( beta < tiny )
|
if ( beta < tiny )
|
||||||
std::cout<<GridLogIRL << " beta is tiny "<<beta<<std::endl;
|
std::cout<<GridLogIRL << " beta is tiny "<<beta<<std::endl;
|
||||||
|
|
||||||
std::cout<<GridLogIRL << "Lanczos step complete " <<k<<std::endl;
|
std::cout<<GridLogDebug << "Lanczos step complete " <<k<<std::endl;
|
||||||
}
|
}
|
||||||
|
|
||||||
void diagonalize_Eigen(std::vector<RealD>& lmd, std::vector<RealD>& lme,
|
void diagonalize_Eigen(std::vector<RealD>& lmd, std::vector<RealD>& lme,
|
||||||
|
Loading…
x
Reference in New Issue
Block a user