1#!-------------------------------------------------------------------------------------------------!
2#! Copyright (C) by the DBCSR developers group - All rights reserved                               !
3#! This file is part of the DBCSR library.                                                         !
4#!                                                                                                 !
5#! For information on the license, see the LICENSE file.                                           !
6#! For further information please visit https://dbcsr.cp2k.org                                     !
7#! SPDX-License-Identifier: GPL-2.0+                                                               !
8#!-------------------------------------------------------------------------------------------------!
9
10#:mute
11
12#:def type2setup_1_get()
13TYPE btree_data_sp2d
14REAL(KIND=sp), DIMENSION(:,:), POINTER :: p
15LOGICAL :: tr
16END TYPE btree_data_sp2d
17PUBLIC :: btree_data_sp2d
18#:enddef
19
20#:def type2setup_2_get()
21TYPE btree_data_dp2d
22REAL(KIND=dp), DIMENSION(:,:), POINTER :: p
23LOGICAL :: tr
24END TYPE btree_data_dp2d
25PUBLIC :: btree_data_dp2d
26#:enddef
27
28#:def type2setup_3_get()
29TYPE btree_data_cp2d
30COMPLEX(KIND=sp), DIMENSION(:,:), POINTER :: p
31LOGICAL :: tr
32END TYPE btree_data_cp2d
33PUBLIC :: btree_data_cp2d
34#:enddef
35
36#:def type2setup_4_get()
37TYPE btree_data_zp2d
38COMPLEX(KIND=dp), DIMENSION(:,:), POINTER :: p
39LOGICAL :: tr
40END TYPE btree_data_zp2d
41PUBLIC :: btree_data_zp2d
42#:enddef
43
44#:set nametype1 = ['i8','i8','i8','i8']
45#:set type1 = ['INTEGER(KIND=keyt)','INTEGER(KIND=keyt)','INTEGER(KIND=keyt)','INTEGER(KIND=keyt)']
46#:set nametype2 = ['sp2d', 'dp2d', 'cp2d', 'zp2d']
47#:set type2 = ['TYPE(btree_data_sp2d)', 'TYPE(btree_data_dp2d)', 'TYPE(btree_data_cp2d)', 'TYPE(btree_data_zp2d)']
48#:set type2setup = [type2setup_1_get(),type2setup_2_get(),type2setup_3_get(),type2setup_4_get()]
49#:set defaultFormatType1 = ['I12', 'I12', 'I12', 'I12']
50#:set defaultFormatType2 = ['F12.3', 'F12.3', 'F12.3', 'F12.3']
51#:set accessorType2 = ['%p','%p','%p','%p']
52#:set nametype = [_ + '_' + __ for _, __ in zip(nametype1, nametype2)]
53
54#:set inst_params = list(zip(nametype, nametype1, nametype2, type1, type2, defaultFormatType1, defaultFormatType2, accessorType2))
55#:endmute
56