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

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

@@ -3 +3 @@
 ;
 PRO label_gmt, min, max, intervalle, ncoul, ncontour, level_z2d, coul
+;
+  compile_opt idl2, strictarrsubs
+;
 @common
 @com_eg
@@ -22 +25 @@
       ncontour  = fix((max-min)/intervalle)
       level_z2d = min + intervalle*findgen(Ncontour) 
-      max=level_z2d(Ncontour-1)+intervalle
+      max=level_z2d[Ncontour-1]+intervalle
 
       print, '     Number of contour intervals, plotting min & max ', ncontour, min, max
@@ -40 +43 @@
            ; difference plot : lighter below first negative interval
             red[51:98] = long((100.-float(grey_shade_2))/100.*255.)
-            red(1:48) = long((100.-float(grey_shade))/100.*255.)
+            red[1:48] = long((100.-float(grey_shade))/100.*255.)
             red[50] = 255