%N cowrite %F $MIR/src/subs/co.for
%D Write out the coordinate description to an image dataset.
%P rjs
%: coordinates
%B
      subroutine coWrite(lu,tno)

      integer lu,tno
  ---------------------------------------------------------------------
  Write a coordinate system description to an image dataset header.
  The coordinate object is expected to have been initialised by
  coReinit prior to calling this.

  Input:
    lu         Handle of the coordinate object.
    tno        Handle of the output dataset.
