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 ...@@ -147,7 +147,7 @@ CONTAINS
IF (info.NE.0) THEN IF (info.NE.0) THEN
td%e_shift(n,jsp)=td%e_shift(n,jsp)*2.0 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 IF (td%e_shift(n,jsp)>e_shift_max) THEN
CALL judft_error("Potential shift at maximum") CALL judft_error("Potential shift at maximum")
ENDIF 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