is_intersecting Function

public function is_intersecting(cube, geometry, obj_pos) result(intersects)

Test the intersection between the given cube and the object specified by obj_pos.

This test obviously depends on the kind of object to intersect, thus a select case has to be used. Alternatively we might think of deploying function pointers.

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_cube_type),	intent(in)			::	cube
type(sdr_geometry_type),	intent(in)			::	geometry
integer,	intent(in)			::	obj_pos

Return Value logical