Commit 8300a407 authored by Gregor Michalicek's avatar Gregor Michalicek

Slightly more informative output if the potential shift is too small

parent 1c32d2cd
......@@ -147,7 +147,7 @@ CONTAINS
IF (info.NE.0) THEN
td%e_shift(n,jsp)=td%e_shift(n,jsp)*2.0
PRINT *,"Potential shift to small, increasing the value to:",td%e_shift(n,jsp)
PRINT *,"Potential shift for atom type ",n," is too small. Increasing the value to:",td%e_shift(n,jsp)
IF (td%e_shift(n,jsp)>e_shift_max) THEN
CALL judft_error("Potential shift at maximum")
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