        SUBROUTINE MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
        IMPLICIT NONE
        REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,TICKSP,TLABLN
        REAL GSCWID,GSCHIT
        INTEGER ILABSZ
        LOGICAL*2 LRAXIS
        INCLUDE DIGLIB$KOM:PLTSIZ.PRM
        INCLUDE DIGLIB$KOM:PLTPRM.PRM
C
C
        CXSIZE = GSCWID()*CSIZE/GSCHIT()
        CYSIZE = CSIZE
        TICKLN = TKLN
        TICKSP = AMAX1(0.0,TICKLN)
        TLABLN = ILABSZ()+0.25
D	WRITE(9,12345)XLEFT,TICKSP,TLABLN,CXSIZE,CYSIZE
D12345   FORMAT(1X,"MAPPRM" 5F6.2)
        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
D	WRITE(9,12346)XVSTRT,XVLEN,YVSTRT,YVLEN
D12346  FORMAT(1X,4F6.2) 
        RETURN
        END
