Changeset 226 for trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro (modified) (9 diffs)

trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro

@@ -9 +9 @@
 ; @categories
 ; Utilities
-; 
+;
 ; @param MASKENTREE {in}{required}
 ; 2d array specifying the mask
-; 
+;
 ; @param XIN {in}{required},
 ; 2d array specifying longitude coordinates.
-; 
+;
 ; @param YIN {in}{required},
 ; 2d array specifying latitude coordinates.
@@ -56 +56 @@
 @updatekwd
   ENDIF
-;--------------------------------------------------------- 
+;---------------------------------------------------------
    tempsun = systime(1)         ; For key_performance
 ; We avoid edging problems:
@@ -82 +82 @@
 ; we sill
    xentree = xrange[0] > xentree < xrange[1]
-; we enlarge the array 
+; we enlarge the array
    xf = fltarr(nx, ny)
    xf[1:nx-1, 1:ny-1] = xentree
@@ -92 +92 @@
    yrange = !y.range[sort(!y.range)]
    yentree = .5*(yentree+shift(yentree, 0, -1))
-   IF not keyword_set(overplot) THEN BEGIN 
+   IF not keyword_set(overplot) THEN BEGIN
       if yinverse then yentree[*, ny-2] = yrange[0] ELSE yentree[*, ny-2] = yrange[1]
    ENDIF ELSE yentree[*, ny-2] = yentree[*, ny-3]
@@ -99 +99 @@
    yf[1:nx-1, 1:ny-1] = yentree
    yf[0, 1:ny-1] = yentree[0, *]
-   IF not keyword_set(overplot) THEN BEGIN 
+   IF not keyword_set(overplot) THEN BEGIN
       if yinverse then yf[*, 0] = yrange[1] ELSE yf[*, 0] = yrange[0]
    ENDIF ELSE yentree[*, 0] = yentree[*, 1]
@@ -113 +113 @@
 ; We recuperate lx and ly which are indexes in a 2d array of points given by list
       ly = liste/nx & lx = temporary(liste)-nx*ly
-      indice = where(ly NE 0) ; We do not take points concernining 
-; the first line because in this case, the point j-1 is not defined 
+      indice = where(ly NE 0) ; We do not take points concerning
+; the first line because in this case, the point j-1 is not defined
       if indice[0] NE -1 then begin
          lx = lx[indice] & ly = ly[temporary(indice)]
@@ -122 +122 @@
 ; loop on concerned points and drawing of the segment.
 ; comments: we use plots instead of plot because plots is faster.
-         for pt = 0L, n_elements(lx)-1 do BEGIN 
+         for pt = 0L, n_elements(lx)-1 do BEGIN
             i = lx[pt] & j = ly[pt]
             plots, [xf[i, j-1], xf[i, j]], [yf[i, j-1], yf[i, j]] $
@@ -146 +146 @@
        print, 'temps tracemask: liste traits horizontaux', systime(1)-tempdeux
       tempdeux = systime(1)     ; For key_performance =2
-      for pt = 0L, n_elements(lx)-1 do BEGIN 
+      for pt = 0L, n_elements(lx)-1 do BEGIN
          i = lx[pt] & j = ly[pt]
          plots, [xf[i-1, j], xf[i, j]], [yf[i-1, j], yf[i, j]] $
@@ -156 +156 @@
 ;
 ;
-   if keyword_set(key_performance) THEN print, 'temps tracemask', systime(1)-tempsun 
-   
+   if keyword_set(key_performance) THEN print, 'temps tracemask', systime(1)-tempsun
+
    return
 end