TYPE btree_i8_dp2d TYPE(btree_node_structure_i8_dp2d) :: b = btree_node_structure_i8_dp2d () END TYPE btree_i8_dp2d