get_c_cdot_icrf Subroutine

private subroutine get_c_cdot_icrf(me, eph, to_icrf, c, cdot, status_ok)

rotation matrix for ICRF <-> ICRF

Type Bound

icrf_frame

Arguments

Type IntentOptional Attributes Name
class(icrf_frame), intent(inout) :: me
class(ephemeris_class), intent(inout) :: eph

for ephemeris computations (assumed to have already been initialized)
logical, intent(in) :: to_icrf
real(kind=wp), intent(out), dimension(3,3) :: c
real(kind=wp), intent(out), optional, dimension(3,3) :: cdot
logical, intent(out) :: status_ok

Source Code

    subroutine get_c_cdot_icrf(me,eph,to_icrf,c,cdot,status_ok)

    !! rotation matrix for ICRF <-> ICRF

    implicit none

    class(icrf_frame),intent(inout)              :: me
    class(ephemeris_class),intent(inout)         :: eph     !! for ephemeris computations (assumed to have already been initialized)
    logical,intent(in)                           :: to_icrf
    real(wp),dimension(3,3),intent(out)          :: c
    real(wp),dimension(3,3),intent(out),optional :: cdot
    logical,intent(out)                          :: status_ok

    c = identity_3x3
    if (present(cdot)) cdot = zero
    status_ok = .true.

    end subroutine get_c_cdot_icrf