Changeset 114 for trunk/SRC/ToBeReviewed/PLOTS/LABEL

Timestamp:

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

Author:

smasson

Message:

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

Location:

trunk/SRC/ToBeReviewed/PLOTS/LABEL

Files:

• label.pro (modified) (2 diffs)
• label_date.pro (modified) (1 diff)
• label_gmt.pro (modified) (3 diffs)
• lataxe.pro (modified) (1 diff)
• lonaxe.pro (modified) (1 diff)

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

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

@@ -99 +99 @@
 FUNCTION LABEL_DATE, axis, index, x, DATE_FORMAT = format, MONTHS = months, $
               OFFSET= offs, _EXTRA = ex
+;
+  compile_opt idl2, strictarrsubs
+;
 COMMON label_date_com, fmt, month_chr, offset
 

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
 

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

@@ -38 +38 @@
 ;------------------------------------------------------------
 ; on ramenne value ds le segment [0,180]
+;
+  compile_opt idl2, strictarrsubs
+;
    lat=value mod 360
    if lat lt 0 then lat=lat+360

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

@@ -38 +38 @@
 ;------------------------------------------------------------
 ; on ramenne value ds le segment [0,360[
+;
+  compile_opt idl2, strictarrsubs
+;
    lon=value mod 360
    if lon lt 0 then lon=lon+360