EPJ2JD Subroutine

  1. astro_module.f90
  2. astro_module
  3. EPJ2JD

public subroutine EPJ2JD(epj, djm0, djm)

Julian Epoch to Julian Date.

Status: support routine.

Note

The Julian Date is returned in two pieces, in the usual SOFA manner, which is designed to preserve time resolution. The Julian Date is available as a single number by adding DJM0 and DJM.

Reference

  • Lieske, J.H., 1979, Astron.Astrophys. 73, 282.

History

  • IAU SOFA revision: 2008 May 11

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: epj

Julian Epoch (e.g. 1996.8)
real(kind=wp), intent(out) :: djm0

MJD zero-point: always 2400000.5
real(kind=wp), intent(out) :: djm

Modified Julian Date

Contents

Source Code

EPJ2JD

Source Code

    subroutine EPJ2JD ( epj, djm0, djm )

    implicit none

    real(wp),intent(in) :: epj !! Julian Epoch (e.g. 1996.8)
    real(wp),intent(out) :: djm0 !! MJD zero-point: always 2400000.5
    real(wp),intent(out) :: djm !! Modified Julian Date

    djm0 = 2400000.5_wp
    djm  = 51544.5_wp + ( epj-2000.0_wp ) * 365.25_wp

    end subroutine EPJ2JD