from_rsw_to_ijk_mat Subroutine

private subroutine from_rsw_to_ijk_mat(r, v, a, c, cdot)

Uses

  • proc~~from_rsw_to_ijk_mat~~UsesGraph proc~from_rsw_to_ijk_mat relative_motion_module::from_rsw_to_ijk_mat module~vector_module vector_module proc~from_rsw_to_ijk_mat->module~vector_module module~kind_module kind_module module~vector_module->module~kind_module module~numbers_module numbers_module module~vector_module->module~numbers_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~numbers_module->module~kind_module

Compute the transformation matrices to convert RSW to IJK.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), dimension(3) :: r

position vector of target [km]
real(kind=wp), intent(in), dimension(3) :: v

velocity vector of target [km/s]
real(kind=wp), intent(in), optional, dimension(3) :: a

acceleration vector of target [km/s^2] (if not present, then a torque-free force model is assumed)
real(kind=wp), intent(out), dimension(3,3) :: c

C transformation matrix
real(kind=wp), intent(out), optional, dimension(3,3) :: cdot

CDOT transformation matrix

Calls

proc~~from_rsw_to_ijk_mat~~CallsGraph proc~from_rsw_to_ijk_mat relative_motion_module::from_rsw_to_ijk_mat interface~from_ijk_to_rsw relative_motion_module::from_ijk_to_rsw proc~from_rsw_to_ijk_mat->interface~from_ijk_to_rsw proc~from_ijk_to_rsw_mat relative_motion_module::from_ijk_to_rsw_mat interface~from_ijk_to_rsw->proc~from_ijk_to_rsw_mat proc~from_ijk_to_rsw_rv relative_motion_module::from_ijk_to_rsw_rv interface~from_ijk_to_rsw->proc~from_ijk_to_rsw_rv proc~cross vector_module::cross proc~from_ijk_to_rsw_mat->proc~cross proc~uhat_dot vector_module::uhat_dot proc~from_ijk_to_rsw_mat->proc~uhat_dot proc~unit vector_module::unit proc~from_ijk_to_rsw_mat->proc~unit proc~from_ijk_to_rsw_rv->interface~from_ijk_to_rsw

Called by

proc~~from_rsw_to_ijk_mat~~CalledByGraph proc~from_rsw_to_ijk_mat relative_motion_module::from_rsw_to_ijk_mat interface~from_rsw_to_ijk relative_motion_module::from_rsw_to_ijk interface~from_rsw_to_ijk->proc~from_rsw_to_ijk_mat proc~from_rsw_to_ijk_rv relative_motion_module::from_rsw_to_ijk_rv interface~from_rsw_to_ijk->proc~from_rsw_to_ijk_rv proc~from_rsw_to_ijk_rv->interface~from_rsw_to_ijk

Source Code

    subroutine from_rsw_to_ijk_mat(r,v,a,c,cdot)

    use vector_module, only: unit, cross

    implicit none

    real(wp),dimension(3),intent(in)             :: r     !! position vector of target [km]
    real(wp),dimension(3),intent(in)             :: v     !! velocity vector of target [km/s]
    real(wp),dimension(3),intent(in),optional    :: a     !! acceleration vector of target [km/s^2]
                                                          !! (if not present, then a torque-free force model is assumed)
    real(wp),dimension(3,3),intent(out)          :: c     !! C transformation matrix
    real(wp),dimension(3,3),intent(out),optional :: cdot  !! CDOT transformation matrix

    call from_ijk_to_rsw(r,v,a,c,cdot)

    c = transpose(c)

    if (present(cdot)) cdot = transpose(cdot)

    end subroutine from_rsw_to_ijk_mat