Changeset 114 for trunk/SRC/Obsolete/lec.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/Obsolete/lec.pro (modified) (2 diffs)

trunk/SRC/Obsolete/lec.pro

@@ -81 +81 @@
 ;--------------------------------------------------------------
 function lec, nomchamp,date,nomexp,ECRIT=ecrit,ANOM=anom, BOITE = boite,EXPANOM=expanom, TOUT = tout, GRID = grid, NAME = name, filename = FILENAME
+;
+  compile_opt idl2, strictarrsubs, obsolete
+;
 @common
    tempsun = systime(1)         ; pour key_performance
@@ -329 +332 @@
    ENDIF ELSE BEGIN 
       terre = where(mask[*,*,0] EQ 0)
-      if terre[0] NE -1 then z(where(mask EQ 0)) = valmask
+      if terre[0] NE -1 then z[where(mask EQ 0)] = valmask
    ENDELSE 
 ;---------------------------------------------------------------------