Commit 091fa4d8 authored by Alexander Neukirchen's avatar Alexander Neukirchen

Update xcBfield.f90

parent 9434afbf
......@@ -126,7 +126,7 @@ CONTAINS
DO n=1, atoms%ntype
DO jr = 1, atoms%jri(n)
r=atoms%rmsh(jr, n)
pot%mt(jr,0:,n,:) = pot%mt(jr,0:,n,:)*r**2
phi%mt(jr,0:,n,:) = phi%mt(jr,0:,n,:)*r**2
END DO ! jr
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