Name:         GRQFNT

Purpose:      inquire current font

Category:     GRAPHICS

File:         pgplot.src

Author:       T.J. Pearson

Use:          see description below.

Description:

            SUBROUTINE GRQFNT (IF)
      
       GRPCKG: obtain the font number of the current graphics device.
      
       Argument:
      
       IF (integer, output): receives the current font number (1-3).

Updates:      Oct 16, 1998: JPT automatically extracted from source.