root_of Function

private function root_of(f) result(r)

The root of a frame's tree (through first parents).

Arguments

Type IntentOptional Attributes Name
class(ReferenceFrame), intent(in), target :: f

the frame

Return Value class(ReferenceFrame), pointer


Calls

proc~~root_of~~CallsGraph proc~root_of root_of proc~num_parents ReferenceFrame%num_parents proc~root_of->proc~num_parents proc~parent ReferenceFrame%parent proc~root_of->proc~parent

Called by

proc~~root_of~~CalledByGraph proc~root_of root_of proc~drawable_update DrawableTrajectory%drawable_update proc~drawable_update->proc~root_of

Source Code

    function root_of(f) result(r)
        class(ReferenceFrame), intent(in), target :: f      !! the frame
        class(ReferenceFrame), pointer :: r
        r => f
        do while (r%num_parents() > 0)
            r => r%parent(1)
        end do
    end function root_of