	SUBROUTINE GSFONT(IFONT,IERR)
C
C	DUMMY FOR PDP-11 MACHINES
C
	IF (IFONT .EQ. 1) GO TO 100
	IERR = -1
	RETURN
100	IERR = 0
	RETURN
	END
