TYPE btree_node_p_i8_dp2d TYPE(btree_node_i8_dp2d), POINTER :: node => NULL() END TYPE btree_node_p_i8_dp2d