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
!Calculate radial soc-matrix elements
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
!
......
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