	SUBROUTINE MPCLIP(AREA)
	DIMENSION AREA(4)
C
C	THIS SUBROUTINE SET UP THE CLIPPING WINDOW FOR THE CURRENT MAP
C
	COMMON /PLTSIZ/ XVSTRT, YVSTRT, XVLEN, YVLEN
	COMMON /PLTPRM/ CXSIZE, CYSIZE, TICKLN, YVINI
C
	TICKSP = AMAX1(0.0,TICKLN)
	CALL GSSCLP(XVSTRT-TICKSP,XVSTRT+XVLEN+2.0*TICKSP,
	1   YVSTRT-TICKSP,YVSTRT+YVLEN+2.0*TICKSP,AREA)
	RETURN
	END
