Description: Prepare for CIRS <-> observed, terrestrial.
The source code for the Fortran routine APIO13 is available: