diff --git a/source/KKRhost/rhovalnew.F90 b/source/KKRhost/rhovalnew.F90 index fe4d93179259ecd595915cc54db535be147ab57d..1181870ea759e4e6740f30b7fca1e14becd065c6 100644 --- a/source/KKRhost/rhovalnew.F90 +++ b/source/KKRhost/rhovalnew.F90 @@ -555,7 +555,7 @@ contains ! read/recalc wavefunctions left contruct the TRANSPOSE spin-orbit coupling hamiltonian and add to potential if ( .not. set_cheby_nosoc) 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