%N annspccg %F $MIR/src/subs/cgpgsubs.for
%D Annotate plot with information from spectrum images
%P nebk
%: plotting
%B
      subroutine annspccg (nspec, spin, iscale, yinc, xpos, ypos)

      integer nspec
      real yinc, xpos, ypos, iscale(nspec)
      character*(*) spin(nspec)
  ---------------------------------------------------------------------
  Annotate plot with spectrum image information

  Input:
    nspec   NUmber of spectrum images
    spin    Image names
    iscale  Scale factor for each image
    yinc    World increment between text lines
    xpos    World x coordinate for text lines
  Input/output
    ypos    World y coordinate for next text line
