UT1TAI Subroutine

  1. astro_module.f90
  2. astro_module
  3. UT1TAI

public subroutine UT1TAI(ut11, ut12, dta, tai1, tai2, j)

Time scale transformation: Universal Time, UT1, to International Atomic Time, TAI.

Status: canonical.

Notes

  1. UT11+UT12 is Julian Date, apportioned in any convenient way between the two arguments, for example where UT11 is the Julian Day Number and UT12 is the fraction of a day. The returned TAI1,TAI2 follow suit.

  2. The argument DTA, i.e. UT1-TAI, is an observed quantity, and is available from IERS tabulations.

Reference

  • Explanatory Supplement to the Astronomical Almanac, P. Kenneth Seidelmann (ed), University Science Books (1992)

History

  • IAU SOFA revision: 2019 June 20

Arguments

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

UT1 as a 2-part Julian Date
real(kind=wp), intent(in) :: ut12

UT1 as a 2-part Julian Date
real(kind=wp), intent(in) :: dta

UT1-TAI in seconds
real(kind=wp), intent(out) :: tai1

TAI as a 2-part Julian Date
real(kind=wp), intent(out) :: tai2

TAI as a 2-part Julian Date
integer, intent(out) :: j

status: 0 = OK

Contents

Source Code

UT1TAI

Source Code

    subroutine UT1TAI ( ut11, ut12, dta, tai1, tai2, j )

    implicit none

    real(wp),intent(in) :: ut11 !! UT1 as a 2-part Julian Date
    real(wp),intent(in) :: ut12 !! UT1 as a 2-part Julian Date
    real(wp),intent(in) :: dta !! UT1-TAI in seconds
    real(wp),intent(out) :: tai1 !! TAI as a 2-part Julian Date
    real(wp),intent(out) :: tai2 !! TAI as a 2-part Julian Date
    integer,intent(out) :: j !! status:  0 = OK

    real(wp) :: dtad

    !  Result, safeguarding precision.
    dtad = dta/d2s
    if ( abs(ut11)>abs(ut12) ) then
       tai1 = ut11
       tai2 = ut12 - dtad
    else
       tai1 = ut11 - dtad
       tai2 = ut12
    end if

    !  Status (always OK).
    j = 0

    end subroutine UT1TAI