Commit ce53b9c7 authored by Matthias Redies's avatar Matthias Redies

MetaGGAs are GGAs now

parent 9f994fef
......@@ -118,7 +118,8 @@ CONTAINS
TYPE(xc_f03_func_info_t) :: xc_info
xc_info = xc_f03_func_get_info(xcpot%exc_func_x)
xcpot_is_gga=ANY((/XC_FAMILY_GGA, XC_FAMILY_HYB_GGA/)==xc_f03_func_info_get_family(xc_info))
xcpot_is_gga = ANY([XC_FAMILY_GGA, XC_FAMILY_HYB_GGA]==xc_f03_func_info_get_family(xc_info)) &
.and. xcpot%is_MetaGGA()
#else
xcpot_is_gga=.false.
#endif
......
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