Commit e19b2363 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

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)
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