Commit 7c0fffd2 authored by Henning Janssen's avatar Henning Janssen

Small fixes

parent eb71893c
......@@ -145,7 +145,7 @@ CONTAINS
! set diagonal terms and correct for non-spin-polarised case
!
DO ispin = 1,jspins
v_diag(ispin) = - u_htr * ( rho_tot - eta(ispin) ) + j_htr * ( rho_sig(ispin) - eta(ispin) )
v_diag(ispin) = - u_htr * ( rho_tot - eta(ispin) ) + j_htr * ( rho_sig(ispin) - 2.0*eta(ispin) )
DO m = -l,l
DO mp = -l,l
vs_mmp(m,mp,i_u,ispin) = vs_mmp(m,mp,i_u,ispin) * spin_deg
......
......@@ -39,7 +39,7 @@ CONTAINS
INTEGER n
REAL rdum
! .. Local Arrays ..
INTEGER i(48),ierr(3)
INTEGER i(44),ierr(3)
REAL r(34)
LOGICAL l(48)
! ..
......
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