Changeset 251 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.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/plt.pro (modified) (2 diffs)

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

@@ -239 +239 @@
   checktypeminmax, 'plt', TYPE = type, MIN = min, MAX = max, _extra = ex
   z2d = checkfield(tab1, 'plt', TYPE = type, BOXZOOM = boxzoom, DIREC = direc, VECTEUR = vecteur, _extra = ex)
-  if z2d[0] EQ -1 then BEGIN
+  if n_elements(z2d) EQ 1 AND z2d[0] EQ -1 then BEGIN
     IF keyword_set(savedbox) THEN restoreboxparam, 'boxparam4plt.dat'
     return
@@ -293 +293 @@
   determineminmax, z2d, mask, mi, ma, glam, gphi, MININ = min, MAXIN = max $
     , nan = nan, INTERVALLE = intervalle, usetri = usetri, _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