%N grqfnt %F $MIR/src/grqfnt.f
%D Inquire current font
%B
      SUBROUTINE GRQFNT (IF)

 GRPCKG: obtain the font number of the current graphics device.

 Argument:

 IF (integer, output): receives the current font number (1-3).
