        SUBROUTINE MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
        LOGICAL*2 LRAXIS
        INCLUDE PLTSIZ.PRM
        INCLUDE PLTPRM.PRM
C
C
        CXSIZE = GSCWID()*CSIZE/GSCHIT()
        CYSIZE = CSIZE
        TICKLN = TKLN
        TICKSP = AMAX1(0.0,TICKLN)
        TLABLN = ILABSZ()+0.25
        XVSTRT = XLEFT + TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE + 0.25
        XVLEN = XRIGHT - XVSTRT - (TLABLN/2.0)*CXSIZE - 0.25
        IF(LRAXIS) XVLEN = XVLEN - (TICKSP + TLABLN*CXSIZE + 2.0*CYSIZE)
        TICKSP = AMAX1(0.5*CYSIZE,TICKLN)
        YVSTRT = YBOT + TICKSP + 4.25*CYSIZE + 0.25
        YVLEN = YTOP - YVSTRT - 2.0*CYSIZE - 0.25
        RETURN
        END
