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 : #: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 357882 : $:inst(nametype1, type1, type1in, type1out, eq, arrayeq, type1arrayEl, arrayEl, private_routines, default_init)
29 0 : END MODULE
|