sphere_bound Subroutine

private subroutine sphere_bound(self, center, radius)

The body's bounding sphere: its center, and its largest semi-axis.

Type Bound

Sphere

Arguments

Type IntentOptional Attributes Name
class(Sphere), intent(in) :: self
real(kind=wp), intent(out) :: center(3)

the bounding sphere, frame coordinates (scene units)
real(kind=wp), intent(out) :: radius

the bounding sphere, frame coordinates (scene units)

Calls

proc~~sphere_bound~~CallsGraph proc~sphere_bound Sphere%sphere_bound proc~radii Sphere%radii proc~sphere_bound->proc~radii

Source Code

    subroutine sphere_bound(self, center, radius)
        class(Sphere), intent(in) :: self
        real(wp), intent(out) :: center(3), radius          !! the bounding sphere, frame coordinates (scene units)
        center = self%sphere_position_
        radius = maxval(self%radii())
    end subroutine sphere_bound