        SUBROUTINE SAVMAP(AREA)
	IMPLICIT NONE
        REAL*4 AREA(15)
C
C       THIS SUBROUTINE SAVES THE STATUS FROM THE LAST MAPPRM-MAPIT CALLS.
C       WHEN USED IN CONJUCTION "RSTMAP", THE USER CAN SWITCH AROUND BETWEEN
C       MULTIPLE GRAPHIC REGIONS ON THE SCREEN CREATED WITH "MAPIT".
C
        INCLUDE DIGLIB$KOM:PLTCLP.PRM
        INCLUDE DIGLIB$KOM:PLTCOM.PRM
        INCLUDE DIGLIB$KOM:PLTSIZ.PRM
C
C       SAVE THE MAPIT CLIPPING LIMITS
C
        AREA(1) = XMIN
        AREA(2) = XMAX
        AREA(3) = YMIN
        AREA(4) = YMAX
C
C       SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
C
        AREA(5) = UX0
        AREA(6) = UDX
        AREA(7) = UY0
        AREA(8) = UDY
        AREA(9) = 0.0
        IF (LOGX) AREA(9) = 1.0
        AREA(10) = 0.0
        IF (LOGY) AREA(10) = 1.0
C
C       NOW SAVE VIRT. COORD. LOCATION OF AXES
C
        AREA(11) = XVSTRT
        AREA(12) = YVSTRT
        AREA(13) = XVLEN
        AREA(14) = YVLEN
C
C       ALL DONE
C
        RETURN
        END
