%N boxset %F $MIR/src/subs/boxes.for
%D Set default region of interest.
%P mjs
%: region-of-interest
%B
      subroutine BoxSet(boxes,naxis,nsize,flags)

      integer naxis,nsize(naxis),boxes(*)
      character flags*(*)
  ---------------------------------------------------------------------
  This checks the box specification given by the user, and applies
  defaults.

  Input:
    naxis      The dimension of nsize, minv and maxv.
    nsize      The dimensions of the data set.
    flags      Character string giving some extra options.  Flags are:
                 's'   Give warning if region-of-interest is not a
                       regular shape.
  Input/Output:
    boxes      This contains an intermediate form of the subregion
               specified by the user. On output, certain defaults are
               filled in.
