%N annwincg %F $MIR/src/subs/cgpgsubs.for
%D Annotate plot with spatial window
%P nebk
%: plotting
%B
      subroutine annwincg (lh, blc, trc, ibin, jbin, kbin, yinc,
     *                     xpos, ypos)

      integer blc(*), trc(*), ibin(2), jbin(2), kbin(2), lh
      real xpos, ypos, yinc
  ---------------------------------------------------------------------
  Annotate plot with spatial window and channel increments

  Input:
    lh        Image handle
    blc,trc   Window in pixels
    i,jbin    Spatial inc and bin.
    kbin      Channel increment and averaging size. If both 0,
              don't write them out
    xpos      X location for text
    yinc      Y increment between bases of successive lines of text
              in normalized device coordinates
  Input/output:
    ypos      Y location for text.  On output, is the location for
              the next line.
