Commit eb71893c authored by Henning Janssen's avatar Henning Janssen

Revert accidental change in v_mmp

parent 807cac9d
...@@ -59,14 +59,14 @@ CONTAINS ...@@ -59,14 +59,14 @@ CONTAINS
l = u_in(i_u)%l l = u_in(i_u)%l
u_htr = u_in(i_u)%u / hartree_to_ev_const u_htr = u_in(i_u)%u / hartree_to_ev_const
j_htr = u_in(i_u)%j / hartree_to_ev_const j_htr = u_in(i_u)%j / hartree_to_ev_const
!u_htr = f0(i_u)/hartree_to_ev_const u_htr = f0(i_u)/hartree_to_ev_const
!IF (l.EQ.1) THEN IF (l.EQ.1) THEN
! j_htr = f2(i_u)/(5*hartree_to_ev_const) j_htr = f2(i_u)/(5*hartree_to_ev_const)
!ELSE IF (l.EQ.2) THEN ELSE IF (l.EQ.2) THEN
! j_htr = 1.625*f2(i_u)/(14*hartree_to_ev_const) j_htr = 1.625*f2(i_u)/(14*hartree_to_ev_const)
!ELSE IF (l.EQ.3) THEN ELSE IF (l.EQ.3) THEN
! j_htr = (286.+195*451/675+250*1001/2025)*f2(i_u)/(6435*hartree_to_ev_const) j_htr = (286.+195*451/675+250*1001/2025)*f2(i_u)/(6435*hartree_to_ev_const)
!END IF END IF
! !
! calculate spin-density 'rho_sig' and total density 'rho_tot' ! calculate spin-density 'rho_sig' and total density 'rho_tot'
! !
......
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