        SUBROUTINE MAPSET(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
        LOGICAL*2 LRAXIS
C
        INCLUDE 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
