diff --git a/global/chkmt.f90 b/global/chkmt.f90 index 50713f111f1b04796b6ec905e2d66a0cf3bd4f63..ae32da0cc2db815363085b7d48f0c3841e512c43 100644 --- a/global/chkmt.f90 +++ b/global/chkmt.f90 @@ -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