	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
