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