Commit 661201e4 authored by ua741532's avatar ua741532

Merge branch 'develop' of ifflinux.iff.kfa-juelich.de:fleur into develop

parents b9eff821 52608789
......@@ -415,7 +415,7 @@ C
gamma = gamma - dvec(i,l)*c2(i)
ENDDO
gamma = gamma/sum
IF ( .NOT.((gamma.LT.1.0e-10).OR.(gamma.GT.cmin)) ) THEN
IF ( .NOT.((gamma.LT.1.0e-9).OR.(gamma.GT.cmin)) ) THEN
cmin = gamma
lmin = l
ENDIF
......
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