%N anninicg %F $MIR/src/subs/cgpgsubs.for
%D Init. plot annotation and write reference values to plot
%P nebk
%: plotting
%B
      subroutine anninicg (lh, no3, vymin, pcs, ydispb, labtyp,
     *                     xpos, ypos, yinc)

      integer   lh
      logical   no3
      real      vymin, pcs, ydispb
      character labtyp(2)*(*)
      real      xpos, ypos, yinc
  ---------------------------------------------------------------------
  Setup chores for the full plot annotation and write the reference
  values to the plot.  The window is redefined to be the same as the
  available part of the view-surface in normalized device coords
  (0 -> 1) to make life easier.

  Input
    lh       Image handle
    no3      DOn't write ref pix for third axis
    vymin    y viewsurface normalized device coordinate
             at which the lowest sub-plot x-axis is drawn
    pcs      PGPLOT character size parameters for plot labelling
             (not the annotation)
    ydispb   Displacement of x-axis label in character heights
    labtyp   Axis label types
  Output
    x,ypos   World coordinate of next line of text to be written
    yinc     World increment between lines of text
