set_position Subroutine

private subroutine set_position(self, position)

Position relative to the parent frame (overridden by a followed trajectory).

Type Bound

ReferenceFrame

Arguments

Type IntentOptional Attributes Name
class(ReferenceFrame), intent(inout) :: self
real(kind=wp), intent(in) :: position(3)

parent frame's coordinates

Calls

proc~~set_position~2~~CallsGraph proc~set_position~2 ReferenceFrame%set_position proc~next_motion_stamp next_motion_stamp proc~set_position~2->proc~next_motion_stamp

Called by

proc~~set_position~2~~CalledByGraph proc~set_position~2 ReferenceFrame%set_position proc~make_cone_look_at PolyhedralCone%make_cone_look_at proc~make_cone_look_at->proc~set_position~2 proc~place place proc~place->proc~set_position~2 proc~set_time~2 TimeHandle%set_time proc~set_time~2->proc~set_position~2 proc~new_time_handle new_time_handle proc~new_time_handle->proc~set_time~2 proc~set_path TimeHandle%set_path proc~set_path->proc~set_time~2 proc~set_time_range~2 TimeHandle%set_time_range proc~set_time_range~2->proc~set_time~2 proc~shadow_late_update ShadowCones%shadow_late_update proc~shadow_late_update->proc~place proc~time_drag TimeHandle%time_drag proc~time_drag->proc~set_time~2 proc~time_move_handle_point TimeHandle%time_move_handle_point proc~time_move_handle_point->proc~set_time~2 interface~timehandle TimeHandle interface~timehandle->proc~new_time_handle

Source Code

    subroutine set_position(self, position)
        class(ReferenceFrame), intent(inout) :: self
        real(wp), intent(in) :: position(3)                 !! parent frame's coordinates
        if (any(position /= self%position_)) self%stamp_ = next_motion_stamp()
        self%position_ = position
    end subroutine set_position