Changeset 114 for trunk/SRC/ToBeReviewed/PLOTS/symbols.pro

Timestamp:

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

Author:

smasson

Message:

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

File:

• trunk/SRC/ToBeReviewed/PLOTS/symbols.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/PLOTS/symbols.pro

@@ -50 +50 @@
 ;-
 pro symbols,nsym,scale,color=col
+;
+  compile_opt idl2, strictarrsubs
+;
 on_error,2
 fill = 0
@@ -65 +68 @@
                       xarr = fltarr(5)
                       yarr = xarr
-                      xarr(1) = 10.
-                      xarr(2) = 6.
-                      yarr(2) = 2.
+                      xarr[1] = 10.
+                      xarr[2] = 6.
+                      yarr[2] = 2.
                       ;nsyms greater than 10 should be filled arrows
                       if nsym gt 10 then begin
-                         xarr(3) = 6. 
-                         xarr(4) = 10.
-                         yarr(3) = -2.
+                         xarr[3] = 6. 
+                         xarr[4] = 10.
+                         yarr[3] = -2.
                          fill = 1
                       endif else begin
-                         xarr(3) = 10.
-                         xarr(4) = 6.
-                         yarr(4) = -2.
+                         xarr[3] = 10.
+                         xarr[4] = 6.
+                         yarr[4] = -2.
                       endelse
                       case 1 of
@@ -85 +88 @@
                             xarr = extrac(xarr,0,11)
                             yarr = extrac(yarr,0,11)
-                            yarr(6) = 0.5
-                            xarr(7) = 6
-                            yarr(7) = 0.5
-                            xarr(8) = 6
-                            yarr(8) = -0.5
-                            yarr(9) = -0.5
+                            yarr[6] = 0.5
+                            xarr[7] = 6
+                            yarr[7] = 0.5
+                            xarr[8] = 6
+                            yarr[8] = -0.5
+                            yarr[9] = -0.5
                             if nsym eq 12 then begin
                                rotation,xarr,yarr,180,nx,ny
@@ -124 +127 @@
                       xarr = fltarr(5) + 3
                       yarr = xarr
-                      xarr(1) = -3.
-                      xarr(2) = -3.
-                      yarr(2) = -3.
-                      yarr(3) = -3.
+                      xarr[1] = -3.
+                      xarr[2] = -3.
+                      yarr[2] = -3.
+                      yarr[3] = -3.
                       if (nsym eq 21)+(nsym eq 31) then begin
                          rotation,xarr,yarr,45,nx,ny
@@ -139 +142 @@
                       yarr = fltarr(4) - 6./4.
                       xarr = fltarr(4) - 6./2.
-                      xarr(1) = 6./2.
-                      xarr(2) = 0.
-                      yarr(2) = 6.*sqrt(3.)/2. - 6./4.
+                      xarr[1] = 6./2.
+                      xarr[2] = 0.
+                      yarr[2] = 6.*sqrt(3.)/2. - 6./4.
                       if nsym eq 32 then fill = 1
                                     end
@@ -147 +150 @@
                       xarr = fltarr(2) + 1
                       yarr = xarr * 0.
-                      xarr(1) = -1.
+                      xarr[1] = -1.
                                     end
 endcase