a1ut1 - nicolob/pep-full GitHub Wiki

a1ut1

Type: function

Defined in: a1ut1.f

Definition: real*10 function A1UT1(jd, fract)

Author: time

Created: from 1956

Description

determine a1-ut1 time from 1956 to the present.  the source is
controlled by jct(33):
jct(33)=-1  use usno values tabulated in this routine
= 0  (default) after 3 jan 1969 use bih values
tabulated in subroutine bihut1;  before 3 jan
1969 use usno values
.gt.0 read A.1-UT1 and wobble tables from data sets
JCT(33) and JCT(33)+1, respectively.

Included Files

  • fcntrl.inc
  • inodta.inc

Arguments

  • jd
  • fract

Calls

Called By

  • ...

Notes

  • ...
⚠️ **GitHub.com Fallback** ⚠️