Skip to content
Snippets Groups Projects

Batchify the imaginary time propagation eigensolver

Merged Micael Oliveira requested to merge batchify_eigen_evolution into develop
All threads resolved!
1 file
+ 1
1
Compare changes
  • Side-by-side
  • Inline
@@ -124,7 +124,7 @@ subroutine X(eigensolver_evolution)(mesh, st, hm, te, tol, niter, converged, ik,
@@ -124,7 +124,7 @@ subroutine X(eigensolver_evolution)(mesh, st, hm, te, tol, niter, converged, ik,
st%eigenval(ist, ik) = R_REAL(zeig(ist))
st%eigenval(ist, ik) = R_REAL(zeig(ist))
end do
end do
if (hamiltonian_elec_apply_packed(hm, mesh)) call batch_unpack(st%group%psib(ib, ik))
if (hamiltonian_elec_apply_packed(hm, mesh)) call batch_unpack(st%group%psib(ib, ik), copy=.false.)
if (debug%info) then
if (debug%info) then
do ist = minst, maxst
do ist = minst, maxst
Loading