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 : #:include '../common/cp_linked_list.fypp' 9 : 10 : MODULE cp_linked_list_fm 11 : USE cp_fm_types, ONLY: cp_fm_type, cp_fm_p_type 12 : #include "../base/base_uses.f90" 13 : 14 : #:mute 15 : #:set nametype1 = ['fm'] 16 : #:set type1 = ['type(cp_fm_type),pointer'] 17 : #:set type1in = type1 18 : #:set type1out = type1 19 : 20 : #:set eq = ['=>'] 21 : #:set arrayeq = eq 22 : #:set type1arrayEl = ['type(cp_fm_p_type)'] 23 : #:set arrayEl = ['%matrix'] 24 : #:set private_routines = '' 25 : #:set default_init = [' => NULL()'] 26 : #:endmute 27 : 28 398316 : $:inst(nametype1, type1, type1in, type1out, eq, arrayeq, type1arrayEl, arrayEl, private_routines, default_init) 29 0 : END MODULE