Commit d5dbef99 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files

Small bugfix in eigen/vec_for_lo.f90

parent 7d2e20fa
......@@ -90,7 +90,7 @@ CONTAINS
cwork(:,:,:,:) = CMPLX(0.0,0.0)
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