public subroutine tem_intersec_line_plane(plane, line, intersects, intersection)

This subroutine calculates the intersection between a plane and a line.
It gives back the coordinates of the intersection, the multiple of the
direction vector of the intersection and the distance of the intersection
to the center point of the plan.

Nodes of different colours represent the following:

Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.