Commit aad9e717 authored by Gregor Michalicek's avatar Gregor Michalicek

Partially undid last commit as some array initializations cannot be done befor the allocations

parent c0ea10f8
......@@ -189,8 +189,6 @@
jij%nmagn=1
jij%mtypes=1
jij%phnd=1
jij%M(:) = 0.0
jij%l_magn(:) =.FALSE.
!--- J>
CALL dimens(&
......@@ -274,6 +272,9 @@
atoms%numStatesProvided(:) = 0
jij%M(:) = 0.0
jij%l_magn(:) =.FALSE.
atoms%vr0(:) = 0.0
results%force(:,:,:) = 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