%N yhtwcg %F $MIR/src/subs/cgpgsubs.for
%D Find height of one character in world coordinates
%P nebk
%: plotting
%B
      subroutine yhtwcg (yht)

      real yht
  ---------------------------------------------------------------------
  Find the height, in world coordinates, of one character
  with the current PGPLOT character size active

  Output:
    yht     Height in world coordinates of one character
