%N annconcg %F $MIR/src/subs/cgpgsubs.for
%D Annotate plot with information from a contour image
%P nebk
%: plotting
%B
      subroutine annconcg (lc, cin, slev, nlevs, levs, srtlev, dmm,
     *                     yinc, xpos, ypos)

      integer   nlevs, lc, srtlev(nlevs)
      real      slev, xpos, ypos, yinc, levs(nlevs), dmm(2)
      character cin*(*)
  ---------------------------------------------------------------------
  Annotate plot with contour image information

  Input:
    lc      Handle for contour image
    cin       Contour image name
    slev      Scale factor that levels are scaled by
    nlevs     Number of levels
    levs      Contour levels
    srtlev    Array  giving levels in increasing order
    dmm       Data min/max
    yinc      Y increment between bases of successive lines of text
              in normalized device coordinates
    xpos      X location for text
  Input/output:
    ypos      Y location for text.  On output, is the location for
              the next line.
