Changeset 114 for trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro

@@ -82 +82 @@
 ;------------------------------------------------------------
 FUNCTION triangule_c, maskentree, COINMONTE = coinmonte, COINDESCEND = coindescend, BASIC = basic, KEEP_CONT = keep_cont
+;
+  compile_opt idl2, strictarrsubs
+;
    tempsun = systime(1)         ; pour key_performance
 ;---------------------------------------------------------
@@ -175 +178 @@
       tempdeux = systime(1)     ; pour key_performance =2
       pts_downward = pts_downward[1:n_elements(pts_downward)-1]
-      pts_downward = pts_downward(uniq(pts_downward, sort(pts_downward)))
+      pts_downward = pts_downward[uniq(pts_downward, sort(pts_downward))]
 ; aucun rectangle ne peut avoir comme coin en bas a gauche un element
 ; de la derniere colonne ou de la derniere ligne.