Description: Prepare for CIRS <-> observed, terrestrial.
The source code for the ANSI C routine Apio13 is available: