        FUNCTION GSHGHT()
C
C       THIS FUNCTIONS RETURNS THE CURRENT CHARACTER HEIGHT IN VIRTUAL
C        COORDINATES.
C
        INCLUDE GCCPAR.PRM
C
        GSHGHT = CSIZE/GSCHIT()
        RETURN
        END
