Libxc: Fix warning _under_development_, remove measuring time

cp2k · Jun 26, 2019 · a13f0ff · a13f0ff
1 parent 0301b46
commit a13f0ff
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/src/xc/xc_libxc.F b/src/xc/xc_libxc.F
@@ -181,7 +181,7 @@ SUBROUTINE libxc_lda_info(libxc_params, reference, shortform, needs, max_deriv)
             CPABORT(TRIM(func_name)//": this XC_FAMILY is currently not supported.")
          END SELECT
       END IF
-      IF (.NOT. (xc_libxc_wrap_is_under_development(xc_info))) THEN
+      IF (xc_libxc_wrap_is_under_development(xc_info)) THEN
          CPWARN(TRIM(func_name)//" is under development. Use with caution.")
       END IF
 
@@ -286,7 +286,7 @@ SUBROUTINE libxc_lsd_info(libxc_params, reference, shortform, needs, max_deriv)
             CPABORT(TRIM(func_name)//": this XC_FAMILY is currently not supported.")
          END SELECT
       END IF
-      IF (.NOT. (xc_libxc_wrap_is_under_development(xc_info))) THEN
+      IF (xc_libxc_wrap_is_under_development(xc_info)) THEN
          CPWARN(TRIM(func_name)//" is under development. Use with caution.")
       END IF
 

diff --git a/src/xc/xc_libxc_wrap.F b/src/xc/xc_libxc_wrap.F
@@ -278,18 +278,13 @@ LOGICAL FUNCTION xc_libxc_wrap_is_under_development(xc_info)
       CHARACTER(LEN=*), PARAMETER :: routineN = 'xc_libxc_wrap_is_under_development', &
          routineP = moduleN//':'//routineN
 
-      INTEGER                                            :: handle
-
-      CALL timeset(routineN, handle)
 
       IF (IAND(xc_f03_func_info_get_flags(xc_info), XC_FLAGS_DEVELOPMENT) == XC_FLAGS_DEVELOPMENT) THEN
          xc_libxc_wrap_is_under_development = .TRUE.
       ELSE
          xc_libxc_wrap_is_under_development = .FALSE.
       END IF
 
-      CALL timestop(handle)
-
    END FUNCTION xc_libxc_wrap_is_under_development
 
 ! **************************************************************************************************