Commit c24eb879 authored by Henning Janssen's avatar Henning Janssen

Remove inconsistent if condition in crystalfield

parent 4d23d3e7
......@@ -92,9 +92,7 @@ MODULE m_crystalfield
DO jspin = 1, input%jspins
DO m = -l, l
DO mp = -l, l
IF(ABS(h_loc(m,mp,i_hia,jspin)).GT.0.001.OR.m.EQ.mp) THEN
h_loc(m,mp,i_hia,jspin) = h_loc(m,mp,i_hia,jspin) - REAL(v%mmpmat(m,mp,i_u,jspin))
ENDIF
h_loc(m,mp,i_hia,jspin) = h_loc(m,mp,i_hia,jspin) - REAL(v%mmpmat(m,mp,i_u,jspin))
ENDDO
ENDDO
ENDDO
......
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