SUBROUTINE MAPSET(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS) LOGICAL LRAXIS C COMMON /GCDCHR/ DEVID, XLENCM, YLENCM, XRES, YRES, 1 NDCLRS, IDVBTS, NFLINE, XCLIPD, YCLIPD 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