Changeset 251 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
- Timestamp:
- 06/14/07 14:41:34 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
r246 r251 219 219 section, tab, z2d, glam, gphi, ENDPOINTS = endpoints, TYPE = type $ 220 220 , BOXZOOM = boxzoom, DIREC = direc, WDEPTH = wdepth, _extra = ex 221 if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN221 if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN 222 222 restoreboxparam, 'boxparam4pltz.dat' 223 223 return … … 236 236 z2d = checkfield(tab, 'pltz', TYPE = type, BOXZOOM = boxzoom $ 237 237 , DIREC = direc, WDEPTH = wdepth, _extra = ex) 238 if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN238 if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN 239 239 restoreboxparam, 'boxparam4pltz.dat' 240 240 return … … 263 263 autoscale = testvar(var = min) EQ testvar(var = max) AND NOT keyword_set(intervalle) 264 264 determineminmax, z2d, mask, mi, ma, MININ = min, MAXIN = max, nan = nan, INTERVALLE = intervalle, _extra = ex 265 if z2d[0] EQ -1 THEN GOTO, sortie265 if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 THEN GOTO, sortie 266 266 ; We do an autoscale if needed. 267 267 if autoscale then autoscale, min, max, intervalle
Note: See TracChangeset
for help on using the changeset viewer.