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/DIVERS
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

    r37 r114  
    3737;------------------------------------------------------------ 
    3838PRO addaxe, endpoints, type, posfenetre, _EXTRA = ex 
     39; 
     40  compile_opt idl2, strictarrsubs 
     41; 
    3942@common 
    4043;--------------------------------------- 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r37 r114  
    4242; ce CI est un multiple de l'unite en unite log de 10. 
    4343; 
     44; 
     45  compile_opt idl2, strictarrsubs 
     46; 
    4447    ci = (max-min)/20. 
    4548    ci = 10.^floor(alog10(ci)) 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

    r74 r114  
    4141; 
    4242; include common 
     43; 
     44  compile_opt idl2, strictarrsubs 
     45; 
    4346@cm_4mesh 
    4447  IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro

    r37 r114  
    2525                  , CB_SUBTITLE = cb_subtitle, POST = post, _extra = ex 
    2626;------------------------------------------------------------ 
     27; 
     28  compile_opt idl2, strictarrsubs 
     29; 
    2730@cm_general 
    2831  IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

    r69 r114  
    4040;------------------------------------------------------------ 
    4141FUNCTION err_1d, type, n1, name, n2 
     42; 
     43  compile_opt idl2, strictarrsubs 
     44; 
    4245  return, report(['Error in "' + type + '" type plot with a 1D input array:' $ 
    4346                  , 'the number of elements of the input vector ('+strtrim(n1, 1)+') ' $ 
    … …  
    4649; 
    4750FUNCTION err_2d, type, sz, nx, ny, nz 
     51; 
     52  compile_opt idl2, strictarrsubs 
     53; 
    4854  @cm_4mesh 
    4955  @cm_4cal 
    … …  
    5965; 
    6066FUNCTION err_3d, type, sz, nx, ny, nz 
     67; 
     68  compile_opt idl2, strictarrsubs 
     69; 
    6170  @cm_4mesh 
    6271  @cm_4cal 
    … …  
    7483FUNCTION checkfield, field, procedure, TYPE = type, BOXZOOM = boxzoom, DIREC = direc, NOQUESTION = noquestion, VECTEUR = vecteur, WDEPTH = wdepth, _EXTRA = ex 
    7584;-------------------------------------------------------------- 
     85; 
     86  compile_opt idl2, strictarrsubs 
     87; 
    7688; include commons 
    7789@cm_4mesh 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro

    r37 r114  
    3636                     , XINDEX = xindex, YINDEX = yindex $ 
    3737                     , ENDPOINTS = endpoints, _extra = ex 
     38; 
     39; 
     40  compile_opt idl2, strictarrsubs 
    3841; 
    3942@common 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro

    r37 r114  
    4444;------------------------------------------------------------ 
    4545PRO determineminmax, tab, mask, vraimin, vraimax, glam, gphi, MAXIN = maxin, MININ = minin, INTERVALLE = intervalle, usetri = usetri, ZEROMIDDLE = zeromiddle, _extra = ex 
     46; 
     47  compile_opt idl2, strictarrsubs 
     48; 
    4649@common 
    4750;----------------------------------------------------------------------------- 
    … …  
    7174  endif 
    7275; ma et mi : max et min sur les points mer 
    73   vraimax = max(tab(mer), min = vraimin, _extra = ex) 
     76  vraimax = max(tab[mer], min = vraimin, _extra = ex) 
    7477  sameminmax = testvar(var = minin) EQ testvar(var = maxin)  
    7578  if n_elements(maxin) EQ 0 OR sameminmax then maxin = vraimax 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro

    r37 r114  
    33;------------------------------------------------------------ 
    44; include commons 
     5; 
     6  compile_opt idl2, strictarrsubs 
     7; 
    58@cm_4ps 
    69IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/meridienparallele.pro

    r37 r114  
    2323;------------------------------------------------------------ 
    2424PRO meridienparallele, coupe 
     25; 
     26  compile_opt idl2, strictarrsubs 
     27; 
    2528@common 
    2629;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

    r37 r114  
    4242;------------------------------------------------------------ 
    4343; include commons 
     44; 
     45  compile_opt idl2, strictarrsubs 
     46; 
    4447@cm_4ps 
    4548   IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro

    r69 r114  
    5656;--------------------------------------------------------- 
    5757; include common 
     58; 
     59  compile_opt idl2, strictarrsubs 
     60; 
    5861@cm_4ps 
    5962@cm_4mesh 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/projsegment.pro

    r37 r114  
    5050FUNCTION projsegment, vecteur, bornes, MP = mp 
    5151;-------------------------------------------------------------- 
     52; 
     53  compile_opt idl2, strictarrsubs 
     54; 
    5255   a1 = float(vecteur[0]) 
    5356   b1 = float(vecteur[n_elements(vecteur)-1]) 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro

    r37 r114  
    2929;------------------------------------------------------------ 
    3030PRO restoreatt, struct 
     31; 
     32  compile_opt idl2, strictarrsubs 
     33; 
    3134@common 
    3235;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/rotation.pro

    r37 r114  
    2828 
    2929PRO ROTATION,X,Y,DEG,NX,NY 
     30; 
     31  compile_opt idl2, strictarrsubs 
     32; 
    3033ang=deg*!dtor 
    3134 
    … …  
    3538;get angle in for loop so that zero radii will be left as zero angle 
    3639for i = 0,n_elements(r)-1 do $ 
    37 if r(i) ne 0 then theta(i) = atan(y(i),x(i))  ;range from -pi to +pi 
     40if r[i] ne 0 then theta[i] = atan(y[i],x[i])  ;range from -pi to +pi 
    3841; 
    3942;add rotation angle 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro

    r37 r114  
    2626;------------------------------------------------------------ 
    2727FUNCTION saveatt 
     28; 
     29  compile_opt idl2, strictarrsubs 
     30; 
    2831@common 
    2932   return, {n:varname,g:vargrid,d:vardate,e:varexp,u:varunit,m:valmask} 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro

    r37 r114  
    3434PRO terminedessin, POST = post, SMALL = small, _extra = ex 
    3535;--------------------------------------------------------- 
     36; 
     37  compile_opt idl2, strictarrsubs 
     38; 
    3639@cm_4ps 
    3740  IF NOT keyword_set(key_forgetold) THEN BEGIN 
Note: See TracChangeset for help on using the changeset viewer.