Commit 84c12a7b authored by Matthias Redies's avatar Matthias Redies

wrong gga checker

parent b7ca4729
......@@ -199,7 +199,7 @@ CONTAINS
#ifdef CPP_LIBXC
TYPE(xc_f03_func_info_t) :: xc_info
xc_info = xc_f03_func_get_info(xcpot%vxc_func_c)
xc_info = xc_f03_func_get_info(xcpot%vxc_func_x)
xcpot_vx_is_gga = ANY([XC_FAMILY_GGA, XC_FAMILY_HYB_GGA]==xc_f03_func_info_get_family(xc_info))
#else
xcpot_vx_is_gga=.false.
......
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