et_to_jd Function

public pure function et_to_jd(et) result(jd)

Uses

  • proc~~et_to_jd~~UsesGraph proc~et_to_jd time_module::et_to_jd module~conversion_module conversion_module proc~et_to_jd->module~conversion_module module~kind_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

Convert ephemeris time (seconds from J2000 epoch) to Julian date.

Arguments

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

ephemeris time [sec from J2000 epoch]

Return Value real(kind=wp)

Julian date [days]


Called by

proc~~et_to_jd~~CalledByGraph proc~et_to_jd time_module::et_to_jd proc~get_rv_from_jpl_ephemeris jpl_ephemeris_module::jpl_ephemeris%get_rv_from_jpl_ephemeris proc~get_rv_from_jpl_ephemeris->proc~et_to_jd proc~standish_module_test standish_module::standish_module_test proc~standish_module_test->proc~et_to_jd proc~standish_rv_func standish_module::standish_ephemeris%standish_rv_func proc~standish_module_test->proc~standish_rv_func proc~standish_rv_func->proc~et_to_jd

Source Code

    pure function et_to_jd(et) result(jd)

    use conversion_module, only: sec2day

    implicit none

    real(wp),intent(in) :: et   !! ephemeris time [sec from J2000 epoch]
    real(wp)            :: jd   !! Julian date [days]

    jd = jd_j2000 + et*sec2day

    end function et_to_jd