get_c_cdot_ecliptic Subroutine

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

Uses

  • proc~~get_c_cdot_ecliptic~~UsesGraph proc~get_c_cdot_ecliptic transformation_module::ecliptic_frame%get_c_cdot_ecliptic module~obliquity_module obliquity_module proc~get_c_cdot_ecliptic->module~obliquity_module module~conversion_module conversion_module module~obliquity_module->module~conversion_module module~kind_module kind_module module~obliquity_module->module~kind_module module~conversion_module->module~kind_module module~numbers_module numbers_module module~conversion_module->module~numbers_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~numbers_module->module~kind_module

rotation matrix for ICRF <-> Mean Ecliptic

Type Bound

ecliptic_frame

Arguments

Type IntentOptional Attributes Name
class(ecliptic_frame), intent(inout) :: me
class(ephemeris_class), intent(inout) :: eph
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

Calls

proc~~get_c_cdot_ecliptic~~CallsGraph proc~get_c_cdot_ecliptic transformation_module::ecliptic_frame%get_c_cdot_ecliptic proc~equatorial_to_mean_ecliptic_rotmat obliquity_module::equatorial_to_mean_ecliptic_rotmat proc~get_c_cdot_ecliptic->proc~equatorial_to_mean_ecliptic_rotmat proc~mean_ecliptic_to_equatorial_rotmat obliquity_module::mean_ecliptic_to_equatorial_rotmat proc~get_c_cdot_ecliptic->proc~mean_ecliptic_to_equatorial_rotmat proc~equatorial_to_mean_ecliptic_rotmat->proc~mean_ecliptic_to_equatorial_rotmat proc~mean_obliquity_of_ecliptic_iau1980 obliquity_module::mean_obliquity_of_ecliptic_iau1980 proc~mean_ecliptic_to_equatorial_rotmat->proc~mean_obliquity_of_ecliptic_iau1980

Called by

proc~~get_c_cdot_ecliptic~~CalledByGraph proc~get_c_cdot_ecliptic transformation_module::ecliptic_frame%get_c_cdot_ecliptic proc~transformation_module_test transformation_module::transformation_module_test proc~transformation_module_test->proc~get_c_cdot_ecliptic

Source Code

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

    !! rotation matrix for ICRF <-> Mean Ecliptic

    use obliquity_module

    implicit none

    class(ecliptic_frame),intent(inout)          :: me
    class(ephemeris_class),intent(inout)         :: eph
    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

    if (to_icrf) then
        c = mean_ecliptic_to_equatorial_rotmat()
    else
        c = equatorial_to_mean_ecliptic_rotmat()
    end if

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

    end subroutine get_c_cdot_ecliptic