Description: Observed -> astrometric ICRS.
The source code for the Fortran routine ATOC13 is available: