%N defchrcg %F $MIR/src/subs/cgsubs.for
%D Give a default char. height for axis & velocity labels
%P nebk
%: plotting
%B
      subroutine defchrcg (nx, ny, cs)

      real cs(*)
      integer nx, ny
  ---------------------------------------------------------------------
  Work out default character size for axis labels and for velocity
  label.  Add a linear ramp otherwise they come out too big for
  single plots per page, and too small for multiple plots per page

  Input:
    nx,ny     Number of sub-plots in x and y directions
  Input/output:
    cs        PGPLOT character sizes for axis labels and velocity label
