Commit 1602c16b authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected l_real in cdnval for noco case

parent a35018b2
......@@ -194,7 +194,7 @@ CONTAINS
TYPE (t_zMat) :: zMat
LOGICAL :: l_real
l_real=sym%invs.AND..NOT.noco%l_soc
l_real=sym%invs.AND.(.NOT.noco%l_soc).AND.(.NOT.noco%l_noco)
! ..
! ..
llpd=(atoms%lmaxd*(atoms%lmaxd+3))/2
......
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