Changeset 114 for trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.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/PLOTS/LABEL/label.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro

@@ -50 +50 @@
 pro label, cas, min, max, ncontour, level_z2d, colnumb, NLEVEL = nlevel $
           ,INTERVALLE=intervalle, STRICTFILL = strictfill
+;
+  compile_opt idl2, strictarrsubs
+;
 @common
    if !d.name EQ 'PS' OR !d.name EQ 'Z' then BEGIN
@@ -83 +86 @@
          level_z2d = min + intervalle*findgen(Ncontour) 
          colnumb   = ncoul*(findgen(Ncontour))/Ncontour+ncoul/(2*ncontour)
-         max=level_z2d(Ncontour-1)+intervalle
+         max=level_z2d[Ncontour-1]+intervalle
       end
 ; label pour faire les memes sss que dessier