radii Function

private pure function radii(self) result(r)

The semi-axes: radius * sphere_scale.

Type Bound

Sphere

Arguments

Type IntentOptional Attributes Name
class(Sphere), intent(in) :: self

Return Value real(kind=wp), (3)


Called by

proc~~radii~~CalledByGraph proc~radii Sphere%radii proc~sphere_bound Sphere%sphere_bound proc~sphere_bound->proc~radii proc~sphere_build_contents Sphere%sphere_build_contents proc~sphere_build_contents->proc~radii proc~update_sphere_transform update_sphere_transform proc~sphere_build_contents->proc~update_sphere_transform proc~sphere_pick Sphere%sphere_pick proc~sphere_pick->proc~radii proc~update_sphere_transform->proc~radii proc~set_radius Sphere%set_radius proc~set_radius->proc~update_sphere_transform proc~set_sphere_attitude Sphere%set_sphere_attitude proc~set_sphere_attitude->proc~update_sphere_transform proc~set_sphere_position Sphere%set_sphere_position proc~set_sphere_position->proc~update_sphere_transform proc~set_sphere_scale Sphere%set_sphere_scale proc~set_sphere_scale->proc~update_sphere_transform

Source Code

    pure function radii(self) result(r)
        class(Sphere), intent(in) :: self
        real(wp) :: r(3)
        r = self%radius_ * self%scale_
    end function radii