type tem_intersec_elem !> real(kind=rk) :: center(3) !> real(kind=rk) :: length end type tem_intersec_elem