%N boxdef %F $MIR/src/subs/boxes.for
%D Set the default region of interest.
%P mjs
%: region-of-interest
%B
      subroutine BoxDef(boxes,naxis,blc,trc)

      integer naxis,blc(naxis),trc(naxis),boxes(*)
  ---------------------------------------------------------------------
  Set the default region of interest.

  Input:
    naxis      The dimension of blc and trc.
    blc
    trc
  Input/Output:
    boxes      This contains an intermediate form of the subregion
               specified by the user. On output, certain defaults are
               filled in.
