IffGit has a new shared runner for building Docker images in GitLab CI. Visit https://iffgit.fz-juelich.de/examples/ci-docker-in-docker for more details.

Commit 9adc8e94 authored by Robin Hilgers's avatar Robin Hilgers
Browse files

Quickfix for 4c9c1f95

parent 4d899eac
...@@ -128,7 +128,7 @@ CONTAINS ...@@ -128,7 +128,7 @@ CONTAINS
! chlhdr=d(chlh)/dr, chlhdrr=dd(chlh)/drr. ! chlhdr=d(chlh)/dr, chlhdrr=dd(chlh)/drr.
!Scaling of the magnetic moments in the same way the charge density is scaled in chlh. !Scaling of the magnetic moments in the same way the charge density is scaled in chlh.
IF(noco%l_mtNocoPot) mm(:,lh)=mm(:,lh)/(atoms%rmsh(:, n)*atoms%rmsh(:, n)) IF(noco%l_mtNocoPot) mm(:,lh)=0.5*mm(:,lh)/(atoms%rmsh(:, n)*atoms%rmsh(:, n))
DO js = 1, jspV DO js = 1, jspV
DO jr = 1, atoms%jri(n) DO jr = 1, atoms%jri(n)
...@@ -162,6 +162,7 @@ CONTAINS ...@@ -162,6 +162,7 @@ CONTAINS
ENDDO ENDDO
ENDDO ENDDO
ENDDO ENDDO
!Initialize derivatives of ch on grid if needed. !Initialize derivatives of ch on grid if needed.
IF (dograds) THEN IF (dograds) THEN
chdr(:, :) = 0.0 ! d(ch)/dr chdr(:, :) = 0.0 ! d(ch)/dr
...@@ -249,7 +250,6 @@ CONTAINS ...@@ -249,7 +250,6 @@ CONTAINS
ch(jr,1) = rho_up ch(jr,1) = rho_up
ch(jr,2) = rho_down ch(jr,2) = rho_down
END DO END DO
ELSE ELSE
ch(:,1:jspins)=ch_calc(:,1:jspins) ch(:,1:jspins)=ch_calc(:,1:jspins)
......
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