        REAL*4 FUNCTION GSHGHT()
        IMPLICIT NONE
        REAL GSCHIT
C
C       THIS FUNCTIONS RETURNS THE CURRENT CHARACTER HEIGHT IN VIRTUAL
C        COORDINATES.
C
        INCLUDE DIGLIB$KOM:GCCPAR.PRM
C
        GSHGHT = CSIZE/GSCHIT()
        RETURN
        END
