%N anngrscg %F $MIR/src/subs/cgpgsubs.for
%D Annotate plot with information from a pixel map image
%P nebk
%: plotting
%B
      subroutine anngrscg (lg, gin, npixr, pixr, trfun, dmm,
     *                     yinc, xpos, ypos)

      integer lg, npixr
      real pixr(2), yinc, xpos, ypos, dmm(2)
      character*(*) gin, trfun
  ---------------------------------------------------------------------
  Annotate plot with pixel map image information

  Input:
    lg      Handle for pixel map image
    gin     pixel map image
    npixr   Number of greys scale range groups given by user
    pixr    pixel map intensity range
    trfun   Transfer function type
    yinc    World increment between text lines
    xpos    World x coordinate for text lines
    dmm     Min and max displayed for this image
  Input/output
    ypos    World y coordinate for next text line
