diff --git a/source/KKRhost/rhovalnew.F90 b/source/KKRhost/rhovalnew.F90 index c905ee55005624d04720aac77e35cde599ca0b74..8688a84724cb0bc6e535f3627eb4f376ad345578 100644 --- a/source/KKRhost/rhovalnew.F90 +++ b/source/KKRhost/rhovalnew.F90 @@ -556,7 +556,7 @@ contains ! read/recalc wavefunctions left contruct the TRANSPOSE spin-orbit coupling hamiltonian and add to potential if ( .not. decouple_spin_cheby) then call spinorbit_ham(lmax, lmmax0d, vins, rnew, eryd, zat, cvlight, socscale, nspin, lmpotd, theta, phi, ipan_intervall, rpan_intervall, npan_tot, ncheb, irmdnew, nrmaxd, & - vnspll0, vnspll1(:,:,:,ith), 'rll') + vnspll0, vnspll1(:,:,:,ith), 'transpose') else vnspll1(:,:,:,ith) = vnspll0(:,:,:) end if