Commit e56978df authored by Matthias Redies's avatar Matthias Redies

try this for compiling intel

parent 242c5afb
...@@ -253,14 +253,15 @@ CONTAINS ...@@ -253,14 +253,15 @@ CONTAINS
SUBROUTINE write_xc_info(xc_func, is_E_func) SUBROUTINE write_xc_info(xc_func, is_E_func)
IMPLICIT NONE IMPLICIT NONE
TYPE(xc_f03_func_t),INTENT(IN) :: xc_func
LOGICAL,INTENT(IN),OPTIONAL :: is_E_func LOGICAL,INTENT(IN),OPTIONAL :: is_E_func
TYPE(xc_f03_func_info_t) :: xc_info
INTEGER :: i INTEGER :: i
CHARACTER(len=120) :: kind, family CHARACTER(len=120) :: kind, family
LOGICAL :: is_energy_func LOGICAL :: is_energy_func
#ifdef CPP_LIBXC #ifdef CPP_LIBXC
TYPE(xc_f03_func_t),INTENT(IN) :: xc_func
TYPE(xc_f03_func_info_t) :: xc_info
xc_info = xc_f03_func_get_info(xc_func) xc_info = xc_f03_func_get_info(xc_func)
is_energy_func = merge(is_E_func, .False., PRESENT(is_E_func)) is_energy_func = merge(is_E_func, .False., PRESENT(is_E_func))
......
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