%N cofin %F $MIR/src/subs/co.for
%D Finish up after completing coordinate conversion.
%P rjs
%: coordinates
%B
      subroutine coFin(lu)

      integer lu
  ---------------------------------------------------------------------
  Delete a coordinate system previously initialised with coInit.

  Inputs:
    lu         Handle of the coordinate system.
