C*GRSETFONT -- set text font [obsolete]
C
      SUBROUTINE GRSETFONT (IF)
      INTEGER IF
      CALL GRSFNT(IF)
      END