Commit d5dbef99 authored by Gregor Michalicek's avatar Gregor Michalicek

Small bugfix in eigen/vec_for_lo.f90

parent 7d2e20fa
......@@ -90,7 +90,7 @@ CONTAINS
cwork(:,:,:,:) = CMPLX(0.0,0.0)
enough=.FALSE.
DO k = 1,MIN(lapw%nv(1),lapw%nv(nintsp))
IF (ANY(lapw%rk(k,:nintsp)).LT.eps) CYCLE
IF (ANY(lapw%rk(k,:nintsp).LT.eps)) CYCLE
IF (.NOT.enough) THEN
DO iintsp = 1,nintsp
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment