Commit 70049a9a authored by Gregor Michalicek's avatar Gregor Michalicek

Fix wrong variable names in types/types_xcpot_libxc.F90 without libxc

...solved this in cooperation with Matthias.
parent 241aa744
......@@ -230,7 +230,7 @@ CONTAINS
xc_info = xc_f03_func_get_info(xcpot%vxc_func_x)
xcpot_vx_is_XC = xc_f03_func_info_get_kind(xc_info) == XC_EXCHANGE_CORRELATION
#else
xcpot_vx_is_gga=.false.
xcpot_vx_is_XC=.false.
#endif
END FUNCTION xcpot_vx_is_XC
......@@ -243,7 +243,7 @@ CONTAINS
xc_info = xc_f03_func_get_info(xcpot%exc_func_x)
xcpot_ex_is_XC = xc_f03_func_info_get_kind(xc_info) == XC_EXCHANGE_CORRELATION
#else
xcpot_vx_is_gga=.false.
xcpot_ex_is_XC=.false.
#endif
END FUNCTION xcpot_ex_is_XC
......
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