Commit f0c00daf authored by Gregor Michalicek's avatar Gregor Michalicek

Activate APW+lo for inp file code path if any lnonsph > 39

The problem was that due to the removal of the CPP_APW compiler switch
there was no direct way to determine whether the APW codepath should
be used.
parent 4564526f
......@@ -90,6 +90,11 @@
input%l_core_confpot=.TRUE. !this is the former CPP_CORE switch!
input%l_useapw=.FALSE. !this is the former CPP_APW switch!
atoms%lapw_l(:) = -1
IF(ANY(atoms%lnonsph(:).GT.39)) THEN
WRITE(*,*) 'lnonsph > 39 detected. This is interpreted as an intention to use APW+lo.'
WRITE(*,*) 'Switching to APW+lo!'
input%l_useapw=.TRUE.
END IF
!---> pk non-collinear
!---> read the angle information from nocoinf
noco%qss(:) = 0.0
......
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