%N putplane %F $MIR/src/subs/plane.for
%D Writes a portion of a plane, specified by runs format.
%P mjs
%: region-of-interest, runs
%B
        subroutine PutPlane(lu,Run,nRun,xoff,yoff,nx,ny,In,nIn)

        implicit none
        integer lu,nRun,Run(3,nRun+1),nIn,xoff,yoff,nx,ny
        real In(nIn)

  Write out a subportion of a Miriad image plane. The subportion to
  write  (given in runs form).

  Input:
    lu         The handle of the output Miriad file.
    Run        The runs specifications.
    nRun       The number of runs.
    xoff,yoff  Offset to add to the runs before writing.
    nx,ny      The size of the plane.
    In         The pixel data.
    nIn        The total number of pixels in the "In" array.
