Changeset 386 for trunk/SRC/ToBeReviewed

Timestamp:

12/03/08 14:26:28 (16 years ago)

Author:

smasson

Message:

3 small bugfix

Location:

trunk/SRC/ToBeReviewed

Files:

• GRILLE/decoupeterre.pro (modified) (2 diffs)
• TRIANGULATION/section.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

@@ -244 +244 @@
         AND ny EQ 1 AND keyword_set(realsection):BEGIN
         bottom = total(mask, 3)
-        good = where(bottom NE 0 AND bottom NE nz+1)
+        good = where(bottom NE 0 AND bottom NE nz)
         bottom = lindgen(nx)+(bottom)*nx
         IF good[0] NE -1 THEN BEGIN
@@ -256 +256 @@
         AND nx EQ 1 AND keyword_set(realsection):BEGIN
         bottom = total(mask, 3)
-        good = where(bottom NE 0 AND bottom NE nz+1)
+        good = where(bottom NE 0 AND bottom NE nz)
         bottom = lindgen(ny)+(bottom)*ny
         IF good[0] NE -1 THEN BEGIN

trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro

@@ -73 +73 @@
     0:localbox = [boxzoom2d, minprof, profdefault]
     1:localbox = [boxzoom2d, minprof, boxzoom[0]]
-    2:localbox = [boxzoom2d, boxzoom[0]]
+    2:localbox = [boxzoom2d, boxzoom]
     4:if strpos(type, 'z') NE -1 THEN $
       localbox = [boxzoom2d, minprof, profdefault] ELSE localbox = boxzoom2d