Changeset 231 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

Timestamp:

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

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro (modified) (10 diffs)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

@@ -2 +2 @@
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @param TAB1
 ;
-;
 ; @param TAB2
-;
 ;
 ; @param MIN1
 ;
-;
 ; @param MAX1
-;
 ;
 ; @param MIN2
 ;
-;
 ; @param MAX2
-;
 ;
 ; @param VARNAME2
 ;
-;
 ; @keyword BOXZOOM
-; Vector indicating the geographic zone on which we want to cut the map. 
+; Vector indicating the geographic zone on which we want to cut the map.
 ;  If BOXZOOM has :
 ; 1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]]
@@ -38 +29 @@
 ; @keyword COL1D
 ;
-;
 ; @keyword STY1D
-;
 ;
 ; @keyword OV1D
 ;
-;
 ; @keyword _EXTRA
-; Used to pass your keywords
+; Used to pass keywords
 ;
 ; @returns
 ;
-;
 ; @uses
-;
 ;
 ; @restrictions
 ;
-;
 ; @examples
 ;
-;
 ; @history
-;
 ;
 ; @version
@@ -74 +57 @@
 ; scatter plot (inspired from plt1d)
 ;
-;
   compile_opt idl2, strictarrsubs
 ;
-
-;---------------------------------------------------------
-; include common
 @cm_4mesh
 @cm_4data
@@ -86 +65 @@
 @updatekwd
   ENDIF
-;--------------------------------------------------------------
 
 ; Comment: We do not reinitializate when we call back pltsc
@@ -92 +70 @@
    ;; reduce data xyzt domain
 
-   if keyword_set(boxzoom) then BEGIN 
+   if keyword_set(boxzoom) then BEGIN
      Case 1 Of
        N_Elements(Boxzoom) Eq 1:bte = [lon1, lon2, lat1, lat2, 0., boxzoom[0]]
@@ -100 +78 @@
        N_Elements(Boxzoom) Eq 6:bte = Boxzoom
        Else: Begin
-         ras = report('Wrong Definition of Boxzoom') 
+         ras = report('Wrong Definition of Boxzoom')
          return
        End
@@ -122 +100 @@
    IF finite(min2) EQ 0 THEN min2 = min(tab2)
    IF finite(max2) EQ 0 THEN max2 = max(tab2)
-   
+
 
 ; init plot if not overlay
-   
+
    IF NOT keyword_set(ov1d) THEN placedessin, 'yfx', posfenetre, posbar, $
     contour = contour, _extra = ex
@@ -137 +115 @@
    IF (NOT keyword_set(sty1d)) THEN sty1d = 0
    IF (NOT keyword_set(col1d)) THEN col1d = 0
-   IF  NOT keyword_set(ov1d) THEN  BEGIN 
-      legende, min1, max1, 'yfx', VARNAME2 = varname2, NPTS = npts, _EXTRA = ex 
+   IF  NOT keyword_set(ov1d) THEN  BEGIN
+      legende, min1, max1, 'yfx', VARNAME2 = varname2, NPTS = npts, _EXTRA = ex
 ;
       plot,xx,yy, background = 255, psym = sty1d+1, color=col1d, thick=2 $
        , title = '', subtitle = '',_extra = ex
 
-      if n_elements(ex) NE 0 then BEGIN 
+      if n_elements(ex) NE 0 then BEGIN
 ; To have a 0 colored frame and trace a line at y=0
          if (where(tag_names(ex) EQ 'COLOR'))[0] NE -1 then ex.COLOR = 0
@@ -162 +140 @@
 ;------------------------------------------------------------
    if n_elements(key_performance) NE 0 then $
-    IF key_performance EQ 1 THEN print, 'temps plt1d', systime(1)-tempsun 
+    IF key_performance EQ 1 THEN print, 'temps plt1d', systime(1)-tempsun
 ;------------------------------------------------------------
 ;------------------------------------------------------------
@@ -168 +146 @@
    return
 end
-
-