Commit 7788609c authored by Matthias Redies's avatar Matthias Redies

fix energy-functional

parent 64384ece
......@@ -51,12 +51,12 @@ CONTAINS
xcpot%func_vxc_id_x = vxc_id_x
xcpot%func_vxc_id_c = vxc_id_c
xcpot%func_exc_id_x = merge(exc_id_x, vxc_id_x, PRESENT(exc_id_x))
xcpot%func_exc_id_x = merge(exc_id_c, vxc_id_c, PRESENT(exc_id_c))
xcpot%func_exc_id_c = merge(exc_id_c, vxc_id_c, PRESENT(exc_id_c))
same_functionals = (xcpot%func_vxc_id_x == xcpot%func_exc_id_x) &
.and. (xcpot%func_vxc_id_c == xcpot%func_exc_id_c)
.and. (xcpot%func_vxc_id_c == xcpot%func_exc_id_c)
if(xcpot%func_vxc_id_x == 0 .or. xcpot%func_exc_id_x == 0 ) then
......
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