| ut1tai.c | ut1tai.c | |||
|---|---|---|---|---|
| skipping to change at line 45 | skipping to change at line 45 | |||
| ** Explanatory Supplement to the Astronomical Almanac, | ** Explanatory Supplement to the Astronomical Almanac, | |||
| ** P. Kenneth Seidelmann (ed), University Science Books (1992) | ** P. Kenneth Seidelmann (ed), University Science Books (1992) | |||
| ** | ** | |||
| ** Copyright (C) 2013, NumFOCUS Foundation. | ** Copyright (C) 2013, NumFOCUS Foundation. | |||
| ** Derived, with permission, from the SOFA library. See notes at end of f ile. | ** Derived, with permission, from the SOFA library. See notes at end of f ile. | |||
| */ | */ | |||
| { | { | |||
| double dtad; | double dtad; | |||
| /* Result, safeguarding precision. */ | /* Result, safeguarding precision. */ | |||
| dtad = dta / DAYSEC; | dtad = dta / ERFA_DAYSEC; | |||
| if ( ut11 > ut12 ) { | if ( ut11 > ut12 ) { | |||
| *tai1 = ut11; | *tai1 = ut11; | |||
| *tai2 = ut12 - dtad; | *tai2 = ut12 - dtad; | |||
| } else { | } else { | |||
| *tai1 = ut11 - dtad; | *tai1 = ut11 - dtad; | |||
| *tai2 = ut12; | *tai2 = ut12; | |||
| } | } | |||
| /* Status (always OK). */ | /* Status (always OK). */ | |||
| return 0; | return 0; | |||
| End of changes. 1 change blocks. | ||||
| 1 lines changed or deleted | 1 lines changed or added | |||
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/ | ||||