Line data Source code
1 : !--------------------------------------------------------------------------------------------------! 2 : ! CP2K: A general program to perform molecular dynamics simulations ! 3 : ! Copyright 2000-2024 CP2K developers group <https://cp2k.org> ! 4 : ! ! 5 : ! SPDX-License-Identifier: GPL-2.0-or-later ! 6 : !--------------------------------------------------------------------------------------------------! 7 : 8 : ! ************************************************************************************************** 9 : !> \brief An array-based list which grows on demand. 10 : !> When the internal array is full, a new array of twice the size will be 11 : !> allocated and the items are copied over. 12 : !> 13 : !> This list can also be used as a stack. 14 : !> Have look at list_push(), list_pop() and list_peek(). 15 : !> \par History 16 : !> 12.2012 first version [ole] 17 : !> \author Ole Schuett 18 : ! ************************************************************************************************** 19 : 20 : #:include 'list.fypp' 21 : #:set n_inst = 1 22 : MODULE list_routinestat 23 : USE timings_base_type, ONLY: ${uselist(usetimingsbase)}$ 24 : 25 4639500589 : $:list_body(valuetype[n_inst], valuetype_in[n_inst], valuetype_out[n_inst], value_assign[n_inst]) 26 : 27 0 : END MODULE list_routinestat