Commit c0ea10f8 authored by Gregor Michalicek's avatar Gregor Michalicek

Relocation of some jij initializations

Esepecially jij%nmagn was already needed in rw_noco which is called in
a subroutine of dimens. Therefor it has to be initialized before dimens
is called. I hope there are no side effects of this relocation.
parent 9633a87f
......@@ -183,6 +183,16 @@
ELSE ! else branch of "IF (input%l_inpXML) THEN"
!--- J<
jij%l_wr=.TRUE.
jij%nqptd=1
jij%nmagn=1
jij%mtypes=1
jij%phnd=1
jij%M(:) = 0.0
jij%l_magn(:) =.FALSE.
!--- J>
CALL dimens(&
& mpi,input,&
& sym,stars,&
......@@ -265,18 +275,10 @@
atoms%numStatesProvided(:) = 0
atoms%vr0(:) = 0.0
jij%M(:) = 0.0
jij%l_magn(:) =.FALSE.
results%force(:,:,:) = 0.0
CALL timestart("preparation:stars,lattice harmonics,+etc")
!--- J<
jij%l_wr=.TRUE.
jij%nqptd=1
jij%nmagn=1
jij%mtypes=1
jij%phnd=1
!--- J>
!+t3e
IF (mpi%irank.EQ.0) THEN
!-t3e
......
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