%N coaxset %F $MIR/src/subs/co.for
%D Set basic coordinate parameters for a particular axis.
%P rjs
%: coordinates
%B
      subroutine coAxSet(lu,iax,ctypei,crpixi,crvali,cdelti)

      integer lu, iax
      character ctypei*(*)
      double precision crpixi, crvali, cdelti
  ---------------------------------------------------------------------
  Set basic coordinate parameters (crpix, cdelt, crval, and ctype) for
  the specified image axis.  Updates naxis, and initializes parameters
  for any axes between the old value of naxis and the new.

  This is a convenience routine.  See also coSetD, coSetI, and coSetA
  for setting other parameters one at a time.

  Input:
    lu         Handle of the coordinate object.
    iax        Axis number.
    ctypei,... FITS-style ctype, crpix, crval, cdelt.
