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