forni/robertson/ash dec 1974 real*8 function bihut1
***********includes rapid service values
12/10/80  final value 10/02/80  rapid service values 10/07/80-11/21/80
calculate a1-ut1 time from 1969 to 1977
$$$$$period of validity to be extended when routine revised
second difference interpolation from 5 days interval final
table.  call etutf to extrapolate.

tabular points from  2444420  to  2444515 (julian day numbers)
(june 29, 1980  to  october 2, 1980  0 hr)
integer*2 b8082( 20)/  7884,  7969,  8053,  8136,  8218,  8299,
rapid service values 2444520 to 2444565 (julian day numbers)
(october 7, 1980  to  november 21, 1980  0 hr)

iat-a1= -0.03439 sec.
or iat= a1 - 0.03439 sec.
tabulated values example  iat-ut1= 7.0123
want  a1-ut1   so  a1-0.03439-ut1= 7.0123
or a1-ut1= 7.0123  +  0.03439
ref  page 42  technical note 1972-5  by m.e.ash  04/19/72
determination of earth satellite orbits