SUBROUTINE MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS) LOGICAL LRAXIS COMMON /PLTSIZ/ XVSTRT, YVSTRT, XVLEN, YVLEN COMMON /PLTPRM/ CXSIZE, CYSIZE, TICKLN, YVINI COMMON /GCDPRM/ XS, YS, XT, YT, RCOS, RSIN, VXL, VXH, VYL, VYH C C XBORDR = 0.25/XS YBORDR = 0.25/YS CALL GSSETC(CSIZE,0.0) CXSIZE = GSLENS('0') CYSIZE = CSIZE TICKLN = TKLN TICKSP = AMAX1(0.0,TICKLN) TLABLN = ILABSZ()+0.25 XVSTRT = XLEFT + TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE + XBORDR XVLEN = XRIGHT - XVSTRT - (TLABLN/2.0)*CXSIZE - XBORDR IF (LRAXIS) XVLEN = XVLEN - (TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE) TICKSP = AMAX1(0.5*CYSIZE,TICKLN) YVSTRT = YBOT + TICKSP + 4.25*CYSIZE + YBORDR YVINI = YTOP - YVSTRT - 2.0*CYSIZE - YBORDR RETURN END