This function checks intesection of solid cube and hollow sphere
This algorithm is taken from http://tog.acm.org/resources/GraphicsGems/gems/BoxSphere.c
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_sphere_type), | intent(in) | :: | sphere | |||
type(tem_cube_type), | intent(in) | :: | cube |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=rk), | private | :: | rsqr | ||||
real(kind=rk), | private | :: | a | ||||
real(kind=rk), | private | :: | b | ||||
integer, | private | :: | i | ||||
real(kind=rk), | private | :: | dmin | ||||
real(kind=rk), | private | :: | dmax |