%N pgqch %F $MIR/src/pgqch.f
%D Inquire character height
%B
      SUBROUTINE PGQCH (SIZE)
      REAL SIZE

 Query the Character Size attribute (set by routine PGSCH).

 Argument:
  SIZE   (output) : current character size (dimensionless multiple of
                    the default size).
