	FUNCTION GSHGHT()
C
C	THIS FUNCTIONS RETURNS THE CURRENT CHARACTER HEIGHT IN VIRTUAL
C	 COORDINATES.
C
	COMMON /GCCPAR/ CSIZE, CCOS, CSIN
C
	GSHGHT = CSIZE/GSCHIT()
	RETURN
	END
