Commit 9bf05e70 authored by Gustav Bihlmayer's avatar Gustav Bihlmayer

Limited minRmts to maximum default value already a bit earlier (step 5) in chkmt.f90

parent 25f08f10
......@@ -326,6 +326,8 @@
ELSE IF (minRmts(atoms%nz(typeB)).LT.0.0) THEN
minRmts(atoms%nz(typeB)) = rmtFac * (dist - minRmts(atoms%nz(typeA)))
END IF
minRmts(atoms%nz(typeA)) = min(minRmts(atoms%nz(typeA)),rmtMaxDefault) ! limit already here
minRmts(atoms%nz(typeB)) = min(minRmts(atoms%nz(typeB)),rmtMaxDefault) ! to a reasonable value
END DO
! 6. Correct bad choices and set missing MT radii, vacuum distances, and other parameters
......
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