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 Types used by timings.F and timings_report.F
      10              : !>        Due to the fortran restriction on cicular module-dependencies
      11              : !>        the types, which are used through dict or list had to go
      12              : !>        into the separate module timings_base_type.F
      13              : !> \par History
      14              : !>      12.2012 Created [ole]
      15              : !> \author Ole Schuett
      16              : ! **************************************************************************************************
      17              : MODULE timings_types
      18              :    USE callgraph,                       ONLY: callgraph_type
      19              :    USE list_callstackentry,             ONLY: list_callstackentry_type
      20              :    USE list_routinestat,                ONLY: list_routinestat_type
      21              :    USE routine_map,                     ONLY: routine_map_type
      22              : 
      23              :    IMPLICIT NONE
      24              :    PRIVATE
      25              : 
      26              :    TYPE timer_env_type
      27              :       INTEGER                                          :: ref_count = -1
      28              :       TYPE(routine_map_type)                           :: routine_names = routine_map_type()
      29              :       TYPE(list_routinestat_type)                      :: routine_stats = list_routinestat_type()
      30              :       TYPE(list_callstackentry_type)                   :: callstack = list_callstackentry_type()
      31              :       TYPE(callgraph_type)                             :: callgraph = callgraph_type()
      32              :       INTEGER                                          :: trace_max = -1
      33              :       INTEGER                                          :: trace_unit = -1
      34              :       CHARACTER(len=13)                                :: trace_str = ""
      35              :       LOGICAL                                          :: trace_all = .FALSE.
      36              :    END TYPE timer_env_type
      37              : 
      38              :    PUBLIC :: timer_env_type
      39              : 
      40            0 : END MODULE timings_types
      41              : 
      42              : ! **************************************************************************************************
      43              :