Commit 1f7b4b81 authored by Robin Hilgers's avatar Robin Hilgers

Oh.... Brakets

parent 9a25df4b
......@@ -388,10 +388,10 @@ CONTAINS
IF ((sliceplot%iplot.NE.0 ).AND.(mpi%irank==0) ) THEN
! CDN including core charge
! CALL makeplots(stars, atoms, sphhar, vacuum, input, oneD, sym, &
cell, noco, outDen, PLOT_OUTDEN_Y_CORE, sliceplot)
! cell, noco, outDen, PLOT_OUTDEN_Y_CORE, sliceplot)
!! CDN subtracted by core charge
! CALL makeplots(stars, atoms, sphhar, vacuum, input, oneD, sym, &
cell, noco, outDen, PLOT_OUTDEN_N_CORE, sliceplot)
! cell, noco, outDen, PLOT_OUTDEN_N_CORE, sliceplot)
END IF
IF (input%l_rdmft) THEN
......
......@@ -32,7 +32,7 @@ CONTAINS
!
sm = sm + input%alpha*fsm
IF ( ABS(input%spinf-1.0e0).LE.tol_6 .OR. input%jspins.EQ.1 .or.input%imix.ne.0) THEN
IF ( ABS(input%spinf-1.0).LE.tol_6 .OR. input%jspins.EQ.1 .or.input%imix.ne.0) THEN
! Done with sm1 = sm + alpha * F(sm)
!No spin
RETURN
......
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