SUBROUTINE PLTBOX(XLEFT,XRIGHT,YBOT,YTOP) C C CSIZE = GOODCS(AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0) CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.) RETURN END