%N boxinfo %F $MIR/src/subs/boxes.for
%D Determine bounding box of the region of interest.
%P mjs
%: region-of-interest
%B
      subroutine BoxInfo(boxes,naxis,blc,trc)

      integer boxes(*),naxis,blc(naxis),trc(naxis)
  ---------------------------------------------------------------------
  This returns the bounding box of the region of interest.

  Input:
    boxes      This contains an intermediate form of the subregion
               specified by the user.

  Output:
    blc,trc    Min and max values of the region selected along each
               axis.
