Commit 9555bce3 authored by Alexander Neukirchen's avatar Alexander Neukirchen

now with the correct order of arguments

parent 39b856f7
......@@ -40,7 +40,7 @@ CONTAINS
END SUBROUTINE init_pw_grid
SUBROUTINE pw_to_grid(dograds,jspins,l_noco,stars,cell,den_pw,grad,rho,xcpot)
SUBROUTINE pw_to_grid(dograds,jspins,l_noco,stars,cell,den_pw,grad,xcpot,rho)
!.....------------------------------------------------------------------
!-------> abbreviations
!
......
......@@ -58,7 +58,7 @@ CONTAINS
CALL init_pw_grid(xcpot%needs_grad(),stars,sym,cell)
!Put the charge on the grid, in GGA case also calculate gradients
CALL pw_to_grid(xcpot%needs_grad(),input%jspins,noco%l_noco,stars,cell,den%pw,grad,rho,xcpot)
CALL pw_to_grid(xcpot%needs_grad(),input%jspins,noco%l_noco,stars,cell,den%pw,grad,xcpot,rho)
ALLOCATE(v_xc,mold=rho)
ALLOCATE(v_x,mold=rho)
......
......@@ -254,11 +254,11 @@ CONTAINS
CALL init_pw_grid(xcpot%needs_grad(),stars,sym,cell)
CALL pw_to_grid(xcpot%needs_grad(), input%jspins, noco%l_noco, stars, &
cell, EnergyDen%pw, tmp_grad, ED_rs,xcpot)
cell, EnergyDen%pw, tmp_grad, xcpot, ED_rs)
CALL pw_to_grid(xcpot%needs_grad(), input%jspins, noco%l_noco, stars, &
cell, vTot%pw, tmp_grad, vTot_rs,xcpot)
cell, vTot%pw, tmp_grad, xcpot, vTot_rs)
CALL pw_to_grid(xcpot%needs_grad(), input%jspins, noco%l_noco, stars, &
cell, den%pw, tmp_grad, den_rs,xcpot)
cell, den%pw, tmp_grad, xcpot, den_rs)
CALL finish_pw_grid()
......
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