home *** CD-ROM | disk | FTP | other *** search
- SUBROUTINE MAPSIZ(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
- IMPLICIT NONE
- REAL XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ
- REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,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))
- D WRITE(9,12345)XLEFT,XRIGHT,YBOT,YTOP,CSIZE
- D12345 FORMAT(1X,"MAPSIZ" 5F8.2)
- CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.)
- RETURN
- END
-