Commit 89a6a65b authored by Matthias Redies's avatar Matthias Redies

now intel should compile

parent e56978df
...@@ -12,7 +12,11 @@ MODULE m_types_xcpot_libxc ...@@ -12,7 +12,11 @@ MODULE m_types_xcpot_libxc
USE m_types_xcpot USE m_types_xcpot
USE m_judft USE m_judft
IMPLICIT NONE IMPLICIT NONE
#ifdef CPP_LIBXC
PRIVATE :: write_xc_info PRIVATE :: write_xc_info
#endif
TYPE,EXTENDS(t_xcpot):: t_xcpot_libxc TYPE,EXTENDS(t_xcpot):: t_xcpot_libxc
#ifdef CPP_LIBXC #ifdef CPP_LIBXC
...@@ -251,6 +255,7 @@ CONTAINS ...@@ -251,6 +255,7 @@ CONTAINS
END SUBROUTINE xcpot_alloc_gradients END SUBROUTINE xcpot_alloc_gradients
#ifdef CPP_LIBXC
SUBROUTINE write_xc_info(xc_func, is_E_func) SUBROUTINE write_xc_info(xc_func, is_E_func)
IMPLICIT NONE IMPLICIT NONE
LOGICAL,INTENT(IN),OPTIONAL :: is_E_func LOGICAL,INTENT(IN),OPTIONAL :: is_E_func
...@@ -258,7 +263,6 @@ CONTAINS ...@@ -258,7 +263,6 @@ CONTAINS
CHARACTER(len=120) :: kind, family CHARACTER(len=120) :: kind, family
LOGICAL :: is_energy_func LOGICAL :: is_energy_func
#ifdef CPP_LIBXC
TYPE(xc_f03_func_t),INTENT(IN) :: xc_func TYPE(xc_f03_func_t),INTENT(IN) :: xc_func
TYPE(xc_f03_func_info_t) :: xc_info TYPE(xc_f03_func_info_t) :: xc_info
...@@ -304,7 +308,7 @@ CONTAINS ...@@ -304,7 +308,7 @@ CONTAINS
DO WHILE(i >= 0) DO WHILE(i >= 0)
WRITE(*, '(a,i1,2a)') '[', i+1, '] ', TRIM(xc_f03_func_reference_get_ref(xc_f03_func_info_get_references(xc_info, i))) WRITE(*, '(a,i1,2a)') '[', i+1, '] ', TRIM(xc_f03_func_reference_get_ref(xc_f03_func_info_get_references(xc_info, i)))
END DO END DO
#endif
END SUBROUTINE write_xc_info END SUBROUTINE write_xc_info
#endif
END MODULE m_types_xcpot_libxc END MODULE m_types_xcpot_libxc
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