Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.