	SUBROUTINE MAPSZ2(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
	IMPLICIT NONE
	REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,XLPCT,XRPCT,YBPCT,YTPCT
	REAL*4 CHRSIZ,GOODCS
	INCLUDE DIGLIB$KOM:GCDCHR.PRM
C
	XLEFT = XLENCM*XLPCT/100.0
	IF(XLEFT.EQ.0.0) XLEFT = 0.1
	XRIGHT = XLENCM*XRPCT/100.0
	IF(XRPCT.EQ.100.0) XRIGHT = XRIGHT - 0.1
	YBOT = YLENCM*YBPCT/100.0
	IF(YBPCT.EQ.0.0) YBOT = 0.1
	YTOP = YLENCM*YTPCT/100.0
	IF(YTPCT.EQ.100.0) YTOP = YTOP - 0.1
	CSIZE = CHRSIZ
	IF (CSIZE .EQ. 0.0)
     1  CSIZE = GOODCS(AMAX1(0.3,AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0))
	CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.TRUE.)
	RETURN
	END
