LCOV - code coverage report
Current view: top level - src - xc_write_output.F (source / functions) Coverage Total Hit
Test: CP2K Regtests (git:42dac4a) Lines: 100.0 % 22 22
Test Date: 2025-07-25 12:55:17 Functions: 100.0 % 1 1

            Line data    Source code
       1              : !--------------------------------------------------------------------------------------------------!
       2              : !   CP2K: A general program to perform molecular dynamics simulations                              !
       3              : !   Copyright 2000-2025 CP2K developers group <https://cp2k.org>                                   !
       4              : !                                                                                                  !
       5              : !   SPDX-License-Identifier: GPL-2.0-or-later                                                      !
       6              : !--------------------------------------------------------------------------------------------------!
       7              : 
       8              : ! **************************************************************************************************
       9              : !> \brief Writes information on XC functionals to output
      10              : ! **************************************************************************************************
      11              : MODULE xc_write_output
      12              : 
      13              :    USE input_constants,                 ONLY: xc_none
      14              :    USE input_cp2k_check,                ONLY: xc_functionals_expand
      15              :    USE input_section_types,             ONLY: section_vals_get_subs_vals,&
      16              :                                               section_vals_get_subs_vals2,&
      17              :                                               section_vals_type,&
      18              :                                               section_vals_val_get
      19              :    USE kinds,                           ONLY: default_string_length
      20              :    USE xc_derivatives,                  ONLY: xc_functional_get_info
      21              :    USE xc_libxc,                        ONLY: libxc_check_existence_in_libxc,&
      22              :                                               libxc_get_reference_length
      23              : #include "./base/base_uses.f90"
      24              : 
      25              :    IMPLICIT NONE
      26              : 
      27              :    PRIVATE
      28              : 
      29              :    CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'xc_write_output'
      30              : 
      31              :    PUBLIC :: xc_write
      32              : 
      33              : CONTAINS
      34              : 
      35              : ! **************************************************************************************************
      36              : !> \brief ...
      37              : !> \param iounit ...
      38              : !> \param xc_section ...
      39              : !> \param lsd ...
      40              : ! **************************************************************************************************
      41         1665 :    SUBROUTINE xc_write(iounit, xc_section, lsd)
      42              :       INTEGER, INTENT(IN)                                :: iounit
      43              :       TYPE(section_vals_type), POINTER                   :: xc_section
      44              :       LOGICAL, INTENT(IN)                                :: lsd
      45              : 
      46              :       CHARACTER(LEN=2*default_string_length)             :: shortform
      47         1665 :       CHARACTER(LEN=:), ALLOCATABLE                      :: reference
      48              :       INTEGER                                            :: ifun, il, myfun
      49              :       TYPE(section_vals_type), POINTER                   :: xc_fun, xc_fun_section
      50              : 
      51         1665 :       IF (iounit > 0) THEN
      52              : 
      53              :          xc_fun_section => section_vals_get_subs_vals(xc_section, &
      54         1665 :                                                       "XC_FUNCTIONAL")
      55         1665 :          CALL section_vals_val_get(xc_fun_section, "_SECTION_PARAMETERS_", i_val=myfun)
      56         1665 :          IF (myfun /= xc_none) THEN
      57              : 
      58              :             !check if FUNCTIONAL_ROUTINE keyword present
      59              : 
      60         1480 :             CALL xc_functionals_expand(xc_fun_section, xc_section)
      61         1480 :             ifun = 0
      62         1635 :             DO
      63         3115 :                ifun = ifun + 1
      64         3115 :                xc_fun => section_vals_get_subs_vals2(xc_fun_section, i_section=ifun)
      65         3115 :                IF (.NOT. ASSOCIATED(xc_fun)) EXIT
      66         1635 :                IF (libxc_check_existence_in_libxc(xc_fun)) THEN
      67           73 :                   ALLOCATE (CHARACTER(LEN=libxc_get_reference_length(xc_fun, lsd)) :: reference)
      68              :                ELSE
      69         1562 :                   ALLOCATE (CHARACTER(LEN=20*default_string_length) :: reference)
      70              :                END IF
      71         1635 :                CALL xc_functional_get_info(xc_fun, lsd=lsd, reference=reference, shortform=shortform)
      72              :                WRITE (iounit, fmt="(' FUNCTIONAL| ',a,':')") &
      73         1635 :                   TRIM(xc_fun%section%name)
      74         4726 :                DO il = 1, LEN_TRIM(reference), 67
      75         4726 :                   WRITE (iounit, fmt="(' FUNCTIONAL| ',a67)") reference(il:)
      76              :                END DO
      77         3115 :                DEALLOCATE (reference)
      78              :             END DO
      79              :          ELSE
      80          185 :             WRITE (iounit, fmt="(' FUNCTIONAL| NO EXCHANGE-CORRELATION FUNCTIONAL USED.')")
      81              :          END IF
      82              :       END IF
      83              : 
      84         1665 :    END SUBROUTINE xc_write
      85              : 
      86              : END MODULE xc_write_output
        

Generated by: LCOV version 2.0-1