Ignore:
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/DESSINE
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/bar_plot.pro

    r97 r114  
    131131          outline=outline,overplot=overplot,background=background, $ 
    132132          rotate=rotate, _EXTRA = ex 
     133; 
     134  compile_opt idl2, strictarrsubs 
     135; 
    133136if (n_params(d) eq 0) then begin  ;Print call & return if no parameters 
    134137  print,'bar_test,values,baselines=baselines,colors=colors,barnames=barnames,$' 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

    r67 r114  
    304304;--------------------------------------------------------- 
    305305; include common 
     306; 
     307  compile_opt idl2, strictarrsubs 
     308; 
    306309@cm_4mesh 
    307310@cm_4data 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro

    r74 r114  
    160160;--------------------------------------------------------- 
    161161; include common 
     162; 
     163  compile_opt idl2, strictarrsubs 
     164; 
    162165@cm_4mesh 
    163166@cm_4data 
    … …  
    239242    notanum = where(finite(z1d) EQ 0) 
    240243    z1d[notanum] = 0 
    241     mask(where(z1d LT valmask/10)) = 1 
     244    mask[where(z1d LT valmask/10)] = 1 
    242245    z1d[notanum] = !values.f_nan 
    243   ENDIF ELSE mask(where(z1d LT valmask/10)) = 1 
     246  ENDIF ELSE mask[where(z1d LT valmask/10)] = 1 
    244247;----------------------------------------------------------------------------- 
    245248; determination du min et du max apres la moyenne 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro

    r67 r114  
    135135             , _EXTRA = ex 
    136136;--------------------------------------------------------- 
     137; 
     138  compile_opt idl2, strictarrsubs 
     139; 
    137140@cm_4mesh 
    138141  IF NOT keyword_set(key_forgetold) THEN BEGIN 
    … …  
    215218; ds le cas on unsur2 est active on reduit levels 
    216219    if NOT keyword_set(nocontour) then begin 
    217       IF keyword_set(unsur2) THEN levels = levels(where(zeroun(n_elements(levels) ) eq 1)) 
     220      IF keyword_set(unsur2) THEN levels = levels[where(zeroun(n_elements(levels) ) eq 1)] 
    218221; unlabsur est active?  C_LABEL est passe via _EXTRA? 
    219222      if keyword_set(unlabsur) THEN IF chkstru(ex, 'C_LABELS') THEN $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

    r35 r114  
    33; 
    44; scatter plot (inspired from plt1d) 
     5; 
     6; 
     7  compile_opt idl2, strictarrsubs 
    58; 
    69 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

    r74 r114  
    306306;--------------------------------------------------------- 
    307307; include common 
     308; 
     309  compile_opt idl2, strictarrsubs 
     310; 
    308311@cm_4mesh 
    309312@cm_4data 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

    r35 r114  
    266266;--------------------------------------------------------- 
    267267; include common 
     268; 
     269  compile_opt idl2, strictarrsubs 
     270; 
    268271@cm_4mesh 
    269272@cm_4data 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

    r69 r114  
    5151 
    5252PRO sbar_plot, Values, COLORS = colors, NOREINITPLT = noreinitplt, _extra = ex  
     53; 
     54  compile_opt idl2, strictarrsubs 
     55; 
    5356@common 
    5457; 1) je reinitialise l''environnememt graphique (les variables !x, !y et !p):  

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r35 r114  
    4141;------------------------------------------------------------ 
    4242PRO scontour, x, y, z, NOREINITPLT = noreinitplt, _EXTRA = ex 
     43; 
     44  compile_opt idl2, strictarrsubs 
     45; 
    4346@common 
    4447; 1) je reinitialise l''environnememt graphique (les variables !x, !y et !p):  

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r67 r114  
    4646;------------------------------------------------------------ 
    4747PRO splot,  x, y, NOREINITPLT = noreinitplt, _EXTRA = ex 
     48; 
     49  compile_opt idl2, strictarrsubs 
     50; 
    4851@common 
    4952; 1) je reinitialise l''environnememt graphique (les variables !x, !y et !p):  

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

    r69 r114  
    8686            , MIN = min, MAX = max, MASK = mask, OFFSET = offset, NOUSEINFOS = NOUSEINFOS $ 
    8787            , NCOLORS = ncolors, NOINTERP = nointerp, _EXTRA = ex 
     88; 
     89; 
     90  compile_opt idl2, strictarrsubs 
    8891; 
    8992  IF n_elements(z2d) EQ 0 THEN return 
    … …  
    136139    if abs(mask) LT 1e6 then BEGIN  
    137140      masked = where(arr EQ mask) 
    138       if masked[0] NE -1 then arr(masked) = min(arr(where(arr NE mask))) 
     141      if masked[0] NE -1 then arr[masked] = min(arr[where(arr NE mask)]) 
    139142    ENDIF ELSE BEGIN  
    140143      masked = where(abs(arr) GE abs(mask)/10.) 
    141       if masked[0] NE -1 then arr(masked) = min(arr(where(abs(arr) LT abs(mask)/10.))) 
     144      if masked[0] NE -1 then arr[masked] = min(arr[where(abs(arr) LT abs(mask)/10.)]) 
    142145    ENDELSE 
    143146  ENDIF ELSE masked = -1 
Note: See TracChangeset for help on using the changeset viewer.