diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-03-04 21:21:30 -0500 |
| commit | d54fe7c1f704a63824c5bfa0ece65245572e9b27 (patch) | |
| tree | afc52015ffc2c74e0266653eecef1c8ef8ba5d91 /src/slalib/epb2d.f | |
| download | calfuse-d54fe7c1f704a63824c5bfa0ece65245572e9b27.tar.gz | |
Initial commit
Diffstat (limited to 'src/slalib/epb2d.f')
| -rw-r--r-- | src/slalib/epb2d.f | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/slalib/epb2d.f b/src/slalib/epb2d.f new file mode 100644 index 0000000..cb1be4f --- /dev/null +++ b/src/slalib/epb2d.f @@ -0,0 +1,30 @@ + DOUBLE PRECISION FUNCTION sla_EPB2D (EPB) +*+ +* - - - - - - +* E P B 2 D +* - - - - - - +* +* Conversion of Besselian Epoch to Modified Julian Date +* (double precision) +* +* Given: +* EPB dp Besselian Epoch +* +* The result is the Modified Julian Date (JD - 2400000.5). +* +* Reference: +* Lieske,J.H., 1979. Astron.Astrophys.,73,282. +* +* P.T.Wallace Starlink February 1984 +* +* Copyright (C) 1995 Rutherford Appleton Laboratory +*- + + IMPLICIT NONE + + DOUBLE PRECISION EPB + + + sla_EPB2D = 15019.81352D0 + (EPB-1900D0)*365.242198781D0 + + END |