Commit e19b2363 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix in SOC part for systems with atoms of different radial grid sizes

parent f0cc7546
...@@ -50,7 +50,7 @@ CONTAINS ...@@ -50,7 +50,7 @@ CONTAINS
!Calculate radial soc-matrix elements !Calculate radial soc-matrix elements
DO n = 1,atoms%ntype DO n = 1,atoms%ntype
CALL sorad(atoms,input,n,vr(:atoms%jri(n),0,n,:),enpara,noco%l_spav,rsoc,usdus) CALL sorad(atoms,input,n,vr(:,0,n,:),enpara,noco%l_spav,rsoc,usdus)
END DO END DO
! !
......
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