model_bound Subroutine

private subroutine model_bound(self, center, radius)

The model's bounding sphere, in the model's own coordinates (before its transform).

Type Bound

Model

Arguments

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

the bounding sphere, model coordinates
real(kind=wp), intent(out) :: radius

the bounding sphere, model coordinates

Source Code

    subroutine model_bound(self, center, radius)
        class(Model), intent(in) :: self
        real(wp), intent(out) :: center(3), radius          !! the bounding sphere, model coordinates
        center = self%bound_center
        radius = self%bound_radius
    end subroutine model_bound