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/STRUCTURE
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro

    r27 r114  
    2727;        INDEX --> a named variable that will contain the indices of 
    2828;             the required field names in the structure. They can then 
    29 ;             be assessed through structure.(index(i)) . Index will 
     29;             be assessed through structure.(index[i]) . Index will 
    3030;             contain -1 for all fields entries that are not in the 
    3131;             structure. 
    … …  
    7575 
    7676function chkstru,structure,fields,index=index,verbose=verbose, extract = extract 
     77; 
     78  compile_opt idl2, strictarrsubs 
     79; 
    7780  
    7881 
    … …  
    9194  
    9295     s = size(structure) 
    93      if (s(1+s(0)) ne 8) then begin 
     96     if (s[1+s[0]] ne 8) then begin 
    9497         if(keyword_set(verbose)) then $ 
    9598             ras = report('CHKSTRU: ** No structure passed ! **') 
    … …  
    109112 
    110113     for i=0,n_elements(fields)-1 do begin 
    111          ind = where(names eq strupcase(fields(i))) 
    112          if (ind(0) lt 0) then begin 
     114         ind = where(names eq strupcase(fields[i])) 
     115         if (ind[0] lt 0) then begin 
    113116             if(keyword_set(verbose)) then $ 
    114                 ras = report('CHKSTRU: ** Cannot find field '+fields(i)+' ! **')   
    115          endif else index(i) = ind(0) 
     117                ras = report('CHKSTRU: ** Cannot find field '+fields[i]+' ! **') 
     118         endif else index[i] = ind[0] 
    116119     endfor 
    117120  

  • trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro

    r27 r114  
    6060;------------------------------------------------------------ 
    6161FUNCTION extractstru, stru, liste, GARDE = garde, VIRE = vire 
     62; 
     63  compile_opt idl2, strictarrsubs 
     64; 
    6265   if size(stru, /type) NE 8 then return,  -1 
    6366   if size(liste, /type) NE 7 then return,  -1 

  • trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro

    r74 r114  
    6060;------------------------------------------------------------ 
    6161FUNCTION mixstru, stru1, stru2 
     62; 
     63  compile_opt idl2, strictarrsubs 
     64; 
    6265@cm_general 
    6366 

  • trunk/SRC/ToBeReviewed/STRUCTURE/struct2string.pro

    r27 r114  
    4545;------------------------------------------------------------ 
    4646FUNCTION struct2string, struct, CUT_IN_STRING = cut_in_string, MAX_STRUCT_LENGTH = max_struct_length, DIRECT2STRING = direct2string  
     47; 
     48  compile_opt idl2, strictarrsubs 
     49; 
    4750   if size(struct, /type) NE 8 then return,  '' 
    4851   if NOT keyword_set(max_struct_length) then max_struct_length = 10000l 

  • trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro

    r97 r114  
    5555                                        RANGE=range, VALUES=values 
    5656;First check required parameters... 
     57; 
     58  compile_opt idl2, strictarrsubs 
     59; 
    5760 
    5861        Ntag = N_tags( Struct ) 
Note: See TracChangeset for help on using the changeset viewer.