%N getplane %F $MIR/src/subs/plane.for
%D Read portion of a plane, specified by runs format.
%P mjs
%: region-of-interest, runs
%B
        subroutine GetPlane(lu,Run,nRun,xoff,yoff,nx,ny,Out,MaxOut,nOut)

        implicit none
        integer lu,nRun,Run(3,nRun+1),MaxOut,nOut,xoff,yoff,nx,ny
        real Out(MaxOut)

  Read in the section of a plane that we are interested in.

  Inputs:
    lu         The handle of the input file.
    Run        The runs specifications.
    nRun       The number of runs.
    xoff,yoff  Offset to add to the runs before reading.
    nx,ny      The size of the plane.
    maxOut     The max number of pixels that can be returned.

  Output:
    Out        The output array to receive the selected pixels.
    nOut       The number of pixels in the output array.
