	SUBROUTINE RSTMAP(AREA)
	DIMENSION AREA(14)
C
C	THIS SUBROUTINE RESTORES THE MAPPING PARAMETERS SAVED BY "SAVMAP".
C
	COMMON /PLTCLP/ XMIN,XMAX,YMIN,YMAX
	LOGICAL*1 LOGX, LOGY
	COMMON /PLTCOM/ UX0, UDX, UY0, UDY, LOGX, LOGY
	COMMON /PLTSIZ/ XVSTRT, YVSTRT, XVLEN, YVLEN
C
C	RESTORE THE MAPIT CLIPPING LIMITS
C
	XMIN = AREA(1)
	XMAX = AREA(2)
	YMIN = AREA(3)
	YMAX = AREA(4)
C
C	SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
C
	UX0 = AREA(5)
	UDX = AREA(6)
	UY0 = AREA(7)
	UDY = AREA(8)
	LOGX = .FALSE.
	IF (AREA(9) .NE. 0.0) LOGX = .TRUE.
	LOGY = .FALSE.
	IF (AREA(10) .NE. 0.0) LOGY = .TRUE.
C
C	RESTORE VIRT. COORD. OF AXES
C
	XVSTRT = AREA(11)
	YVSTRT = AREA(12)
	XVLEN = AREA(13)
	YVLEN = AREA(14)
C
C	ALL DONE
C
	RETURN
	END
