        REAL*4 FUNCTION GSYLCM()
	IMPLICIT NONE
C
C       THIS FUNCTION RETURNS THE Y AXIS LENGTH OF THE CURRENT DEVICE
C       IN CENTIMETERS.
C
        INCLUDE DIGLIB$KOM:GCDCHR.PRM
C
        GSYLCM = YLENCM
        RETURN
        END
