;+
;
; @file_comments
; restore all the zoom parameters (defined by calling domdef)
; previously defined by saveboxparam
;
; @param filename {in}{required}{type= scalar string}
; the file name
;
; @uses
; cm_4mesh (and cm_demomode if we are in demo mode)
;
; @restrictions
; call def_myuniquetmpdir, if myuniquetmpdir is undefined:
; => define, create and add it to !path
;
; @examples
;
; IDL> restoreboxparam, filename
;
; @history
; Sebastien Masson (smasson\@lodyc.jussieu.fr)
; July 2005
;
; @version
; $Id$
;
;-
PRO restoreboxparam, filename
;
compile_opt idl2, strictarrsubs
;
@cm_4mesh
;
IF lmgr(/demo) EQ 1 THEN BEGIN
; if we are in demo mode, we cannot save the parameters in a temporary file...
@cm_demomode_used
;
lon1 = boxzoomparam.bound[0]
lon2 = boxzoomparam.bound[1]
lat1 = boxzoomparam.bound[2]
lat2 = boxzoomparam.bound[3]
vert1 = boxzoomparam.bound[4]
vert2 = boxzoomparam.bound[5]
firstxt = boxzoomparam.indexes[0]
lastxt = boxzoomparam.indexes[1]
firstyt = boxzoomparam.indexes[2]
lastyt = boxzoomparam.indexes[3]
firstxu = boxzoomparam.indexes[4]
lastxu = boxzoomparam.indexes[5]
firstyu = boxzoomparam.indexes[6]
lastyu = boxzoomparam.indexes[7]
firstxv = boxzoomparam.indexes[8]
lastxv = boxzoomparam.indexes[9]
firstyv = boxzoomparam.indexes[10]
lastyv = boxzoomparam.indexes[11]
firstxf = boxzoomparam.indexes[12]
lastxf = boxzoomparam.indexes[13]
firstyf = boxzoomparam.indexes[14]
lastyf = boxzoomparam.indexes[15]
firstzt = boxzoomparam.indexes[16]
lastzt = boxzoomparam.indexes[17]
firstzw = boxzoomparam.indexes[18]
lastzw = boxzoomparam.indexes[19]
nxt = boxzoomparam.indexes[20]
nyt = boxzoomparam.indexes[21]
nxu = boxzoomparam.indexes[22]
nyu = boxzoomparam.indexes[23]
nxv = boxzoomparam.indexes[24]
nyv = boxzoomparam.indexes[25]
nxf = boxzoomparam.indexes[26]
nyf = boxzoomparam.indexes[27]
nzt = boxzoomparam.indexes[28]
nzw = boxzoomparam.indexes[29]
key_irregular = boxzoomparam.key
;
boxzoomparam = -1
;
ENDIF ELSE BEGIN
;
restore, myuniquetmpdir + filename
file_delete, myuniquetmpdir + filename
;
ENDELSE
;
@updateold
;
return
end