%N fxysetpl %F $MIR/src/subs/fitsio.for
%D Select the plane of interest in a FITS image.
%P rjs
%: fits
%B
      subroutine fxysetpl(lu,naxis,nsize)

      integer lu,naxis,nsize(naxis)
  ---------------------------------------------------------------------
  This sets the plane of a multi-plane image that we wish to access.

  Inputs:
    lu         File descriptor.
    naxis      Dimension of nsize.
    nsize      Array containing the index of the plane to be accessed.
               NSIZE(1) corresponds to the index into the third
               dimension.
