EPJ Function

  1. astro_module.f90
  2. astro_module
  3. EPJ

public function EPJ(dj1, dj2) result(jd)

Julian Date to Julian Epoch.

Status: support routine.

Note

The Julian Date is supplied 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 DJ1 and DJ2. The maximum resolution is achieved if DJ1 is 2451545D0 (J2000.0).

Reference

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

History

  • IAU SOFA revision: 2009 December 15

Arguments

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

Julian Date (see note)
real(kind=wp), intent(in) :: dj2

Julian Date (see note)

Return Value real(kind=wp)

the Julian Epoch.


Called by

proc~~epj~~CalledByGraph proc~epj EPJ proc~fk45z FK45Z proc~fk45z->proc~epj

Contents

Source Code

EPJ

Source Code

    function EPJ ( dj1, dj2 ) result(jd)

    implicit none

    real(wp),intent(in) :: dj1 !! Julian Date (see note)
    real(wp),intent(in) :: dj2 !! Julian Date (see note)
    real(wp) :: jd !! the Julian Epoch.

    jd = 2000.0_wp + ( ( dj1-dj00 ) + dj2 ) / djy

    end function EPJ