C*GRINQFONT -- inquire current font [obsolete]
C
      SUBROUTINE GRINQFONT (IF)
      INTEGER IF
      CALL GRQFNT(IF)
      END