Changeset 231 for trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

Timestamp:

03/19/07 18:15:51 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro (modified) (8 diffs)

trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
@@ -11 +8 @@
 ;
 ; @keyword _EXTRA
-; Used to pass your keywords 
+; Used to pass keywords
 ;
 ; @keyword CONT_COLOR {default=(!d.n_colors - 1) < 255 => white}
@@ -27 +24 @@
 ;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
-PRO fillcornermask, xin, yin, COINMONTE = coinmonte, COINDESCEND = coindescend $            
+;
+PRO fillcornermask, xin, yin, COINMONTE = coinmonte, COINDESCEND = coindescend $
                     , CONT_COLOR = cont_color, INDICEZOOM = indicezoom $
                     , _extra = ex
@@ -42 +37 @@
   tempsun = systime(1)          ; For key_performance
 ;
-  IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255    
+  IF NOT keyword_set(cont_color) THEN cont_color = (!d.n_colors-1) <  255
 ;------------------------------------------------------------
 ; definition of coordinates of points numbered 1,2,3,4,5,6 (see figures below)
@@ -54 +49 @@
   y2 = .5*(y1+shift(y1, -1))
   nx = n_elements(x1)
-  ny = n_elements(y1) 
+  ny = n_elements(y1)
 ;
 ;
@@ -61 +56 @@
 ;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal.
 ;
-;                     3    
+;                     3
 ;     t(i+nx)=1    u(i+nx)       t(i+nx+1)=0
 ;                     |      \
@@ -94 +89 @@
 ;                     4
 ;     t(i+nx)=1    u(i+nx)       t(i+nx+1)=0
-;                /    |       
-;             /       |          
+;                /    |
+;             /       |
 ;          /        3 |                5
 ;       v(i)---------f(i)------------v(i+1)
@@ -120 +115 @@
 
 ;------------------------------------------------------------
-  IF keyword_set(key_performance) THEN print, 'temps fillcornermask', systime(1)-tempsun 
+  IF keyword_set(key_performance) THEN print, 'temps fillcornermask', systime(1)-tempsun
 ;------------------------------------------------------------
   return