%N boxcount %F $MIR/src/subs/boxes.for
%D Count the pixels in the region-of-interest in a plane.
%P mjs
%: region-of-interest
%B
      subroutine BoxCount(Runs,nRuns,nPoint)

      integer nRuns,Runs(3,nRuns+1),nPoint
  ---------------------------------------------------------------------
  Count the number of pixels in the region-of-interest in a given
  plane.

  Input:
    runs       Runs specifications, as returned by BoxRuns.
    nruns      Number of runs.
  Output:
    nPoint     Number of pixels in the region of interest.
