%N subinccg %F $MIR/src/subs/cgsubs.for
%D Step to next sub-plot
%P nebk
%: plotting
%B
      subroutine subinccg (iplot, nx, ny, vxmin, vymax, vxsize, vysize,
     *                     vxgap, vygap, vx, vy)

      real vxmin, vymax, vxsize, vysize, vxgap, vygap, vx, vy
      integer iplot, nx, ny
  ---------------------------------------------------------------------
  Increment view port locations ready for next sub-plot

  Input
    iplot    Current sub-plot number
    nx,ny    Number of sub-plots in x and y directions on view-surface
    vxmin    minimum x location of encompassing viewport (ndc)
    vymax    maximum y location of encompassing viewport (ndc)
    vx,ysize Size of sub-plots on view-surface (ndc)
    vx,ygap  Gap between sub-plots on the view-surface (ndc)
  Input/output
    vx,vy    Location of blc of next sub-plot on view-surface
