Commit 53f8ff67 authored by Daniel Wortmann's avatar Daniel Wortmann

Applied same fix as last commit to DMI

parent 0f585a8c
......@@ -70,6 +70,7 @@ CONTAINS
LOGICAL,INTENT(IN) :: lastiter
!Stuff that might be modified...
TYPE(t_noco),INTENT(INOUT) :: noco
INTEGER :: itype
IF (.NOT.lastiter) THEN
dmi_next_job=this%t_forcetheo%next_job(lastiter,noco)
RETURN
......@@ -81,6 +82,10 @@ CONTAINS
!Now modify the noco-file
noco%qss=this%qvec(:,this%q_done)
!Modify the alpha-angles
DO iType = 1,atoms%ntype
noco%alph(iType) = noco%alphInit(iType) + tpi_const*dot_PRODUCT(noco%qss,atoms%taual(:,SUM(atoms%neq(:itype-1))+1))
END DO
IF (.NOT.this%l_io) RETURN
IF (this%q_done.NE.1) CALL closeXMLElement('Forcetheorem_Loop_DMI')
......
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