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