%N annveccg %F $MIR/src/subs/cgpgsubs.for
%D Annotate plot with information from a vector image pair
%P nebk
%: plotting
%B
      subroutine annveccg (lv, vin, vfac, yinc, xpos, ypos)

      integer lv(2)
      real vfac(2), yinc, xpos, ypos
      character*(*) vin(2)
  ---------------------------------------------------------------------
  Annotate plot with vector image information

  Input:
    lv      Handles for vector images
    vin     Vector image
    vfac    Maximum vector amplitude and scale in pixel units
            per mm (e.g. jy/beam per mm, or ratio per mm)
    yinc    World increment between text lines
    xpos    World x coordinate for text lines
  Input/output
    ypos    World y coordinate for next text line
