%N grsfnt %F $MIR/src/grsfnt.f
%D Set text font
%B
      SUBROUTINE GRSFNT (IF)
      INTEGER IF

 GRPCKG: Set the font for subsequent text plotting.
 The default font is 1 ("Normal" font); others available are 2
 ("Roman"), 3 ("Italic"), and 4 ("Script").

 Argument:
  IF (input): the font number to be used for subsequent
       text plotting on the current device (in range 1-4).
