Commit 52608789 authored by Gregor Michalicek's avatar Gregor Michalicek

Increased a threshold in brzone.f

This is a bug fix in response to the GitLab issue #49.
parent 038fd4ba
......@@ -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