%N pgqcf %F $MIR/src/pgqcf.f
%D Inquire character font
%B
      SUBROUTINE PGQCF (FONT)
      INTEGER  FONT

 Query the current Character Font (set by routine PGSCF).

 Argument:
  FONT   (output)   : the current font number (in range 1-4).
