%N boxmask %F $MIR/src/subs/boxes.for
%D AND in a mask to the region of interest.
%P mjs
%: region-of-interest
%B
      subroutine BoxMask(tno,boxes,maxboxes)

      integer tno,maxboxes,boxes(maxboxes)
  ---------------------------------------------------------------------
  Indicate that a mask is to be applied to the data.

  Input:
    tno        The handle of the input mask.
    maxboxes   Size of the boxes array.
  Input/Output:
    boxes      The boxes specification.
