Skip to content
Snippets Groups Projects
Commit 790bf3ad authored by Rudolf Zeller's avatar Rudolf Zeller Committed by Philipp Rüssmann
Browse files

Corrected error in caling spinorbit_ham

parent c3939373
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment