Changeset 251 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

Timestamp:

06/14/07 14:41:34 (17 years ago)

Author:

smasson

Message:

small bugfix: z2d[0] = -1 and z2d has more than 1 element

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

@@ -219 +219 @@
     section, tab, z2d, glam, gphi, ENDPOINTS = endpoints, TYPE = type $
     , BOXZOOM = boxzoom, DIREC = direc, WDEPTH = wdepth, _extra = ex
-    if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN
+    if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN
       restoreboxparam, 'boxparam4pltz.dat'
       return
@@ -236 +236 @@
     z2d = checkfield(tab, 'pltz', TYPE = type, BOXZOOM = boxzoom $
                      , DIREC = direc, WDEPTH = wdepth, _extra = ex)
-    if z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN
+    if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 AND n_elements(contour) ne 4 then BEGIN
       restoreboxparam, 'boxparam4pltz.dat'
       return
@@ -263 +263 @@
   autoscale = testvar(var = min) EQ testvar(var = max) AND NOT keyword_set(intervalle)
   determineminmax, z2d, mask, mi, ma, MININ = min, MAXIN = max, nan = nan, INTERVALLE = intervalle, _extra = ex
-  if z2d[0] EQ -1 THEN GOTO, sortie
+  if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 THEN GOTO, sortie
 ; We do an autoscale if needed.
   if autoscale then autoscale, min, max, intervalle