%N putruns %F $MIR/src/subs/plane.for
%D Writes the blanking file of an image.
%P mjs
%: region-of-interest, runs, blanking
%B
        subroutine PutRuns(lOut,Runs,nRuns,xoff,yoff,nx,ny)

        implicit none
        integer lOut,nRuns,xoff,yoff,nx,ny
        integer Runs(3,nRuns+1)

  Write the runs data for the current plane.

  Input:
    lOut       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.
