        SUBROUTINE MAPSET(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
	IMPLICIT NONE
	REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN
        LOGICAL*2 LRAXIS
C
        INCLUDE DIGLIB$KOM:GCDCHR.PRM
C
C
        CALL MAPPRM(XLEFT*XLENCM/100.0,XRIGHT*XLENCM/100.0,
     1   YBOT*YLENCM/100.0,YTOP*YLENCM/100.0,CSIZE,TKLN,LRAXIS)
        RETURN
        END
