from_ijk_to_rsw_rv Subroutine

private subroutine from_ijk_to_rsw_rv(mu, rt_ijk, vt_ijk, r_ijk, v_ijk, dr_rsw, dv_rsw)

Transform a position (and optionally velocity) vector from IJK to RSW.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: mu

gravitational parameter [km^3/s^2]
real(kind=wp), intent(in), dimension(3) :: rt_ijk

Target IJK absolute position vector [km]
real(kind=wp), intent(in), dimension(3) :: vt_ijk

Target IJK absolute position vector [km]
real(kind=wp), intent(in), dimension(3) :: r_ijk

Chaser IJK absolute position vector [km]
real(kind=wp), intent(in), dimension(3) :: v_ijk

Chaser IJK absolute position vector [km]
real(kind=wp), intent(out), dimension(3) :: dr_rsw

Chaser RSW position vector relative to target [km]
real(kind=wp), intent(out), optional, dimension(3) :: dv_rsw

Chaser RSW position vector relative to target [km]

Calls

proc~~from_ijk_to_rsw_rv~~CallsGraph proc~from_ijk_to_rsw_rv from_ijk_to_rsw_rv proc~from_ijk_to_frame_rv from_ijk_to_frame_rv proc~from_ijk_to_rsw_rv->proc~from_ijk_to_frame_rv

Called by

proc~~from_ijk_to_rsw_rv~~CalledByGraph proc~from_ijk_to_rsw_rv from_ijk_to_rsw_rv interface~from_ijk_to_rsw from_ijk_to_rsw interface~from_ijk_to_rsw->proc~from_ijk_to_rsw_rv proc~from_rsw_to_ijk_mat from_rsw_to_ijk_mat proc~from_rsw_to_ijk_mat->interface~from_ijk_to_rsw proc~relative_motion_test relative_motion_test proc~relative_motion_test->interface~from_ijk_to_rsw interface~from_rsw_to_ijk from_rsw_to_ijk interface~from_rsw_to_ijk->proc~from_rsw_to_ijk_mat

Source Code

    subroutine from_ijk_to_rsw_rv(mu,rt_ijk,vt_ijk,r_ijk,v_ijk,dr_rsw,dv_rsw)

    implicit none

    real(wp),intent(in)                        :: mu       !! gravitational parameter [km^3/s^2]
    real(wp),dimension(3),intent(in)           :: rt_ijk   !! Target IJK absolute position vector [km]
    real(wp),dimension(3),intent(in)           :: vt_ijk   !! Target IJK absolute position vector [km]
    real(wp),dimension(3),intent(in)           :: r_ijk    !! Chaser IJK absolute position vector [km]
    real(wp),dimension(3),intent(in)           :: v_ijk    !! Chaser IJK absolute position vector [km]
    real(wp),dimension(3),intent(out)          :: dr_rsw   !! Chaser RSW position vector relative to target [km]
    real(wp),dimension(3),intent(out),optional :: dv_rsw   !! Chaser RSW position vector relative to target [km]

    call from_ijk_to_frame_rv(mu,from_ijk_to_rsw_mat,rt_ijk,vt_ijk,r_ijk,v_ijk,dr_rsw,dv_rsw)

    end subroutine from_ijk_to_rsw_rv