SUBROUTINE MAPSZ2(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ) COMMON /GCDPRM/ XS, YS, XT, YT, RCOS, RSIN, VXL, VXH, VYL, VYH C XLEFT = VXL + (VXH-VXL)*XLPCT/100.0 XRIGHT = VXL + (VXH-VXL)*XRPCT/100.0 YBOT = VYL + (VYH-VYL)*YBPCT/100.0 YTOP = VYL + (VYH-VYL)*YTPCT/100.0 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