EPB2JD Subroutine

  1. astro_module.f90
  2. astro_module
  3. EPB2JD

public subroutine EPB2JD(epb, djm0, djm)

Besselian 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) :: epb

Besselian Epoch (e.g. 1957.3D0)
real(kind=wp), intent(out) :: djm0

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

Modified Julian Date

Called by

proc~~epb2jd~~CalledByGraph proc~epb2jd EPB2JD proc~fk45z FK45Z proc~fk45z->proc~epb2jd

Contents

Source Code

EPB2JD

Source Code

    subroutine EPB2JD ( epb, djm0, djm )

    implicit none

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

    !  Length of tropical year B1900 (days)
    real(wp),parameter :: ty = 365.242198781_wp

    djm0 = 2400000.5_wp
    djm  = 15019.81352_wp + ( epb-1900.0_wp ) * ty

    end subroutine EPB2JD