Changeset 231 for trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.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/DIVERS/axis4pltz.pro (modified) (8 diffs)

trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

@@ -1 @@
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
 ;+
 ;
@@ -9 +6 @@
 ; @param MASK {in}{required}
 ;  3d mask
-;        
+;
 ; @param GLAM {in}{required}
-; 2d longitude 
-; 
+; 2d longitude
+;
 ; @param GPHI {in}{required}
 ; 2d latitude
@@ -19 +16 @@
 ; 1d depth
 ;
-; @keyword XXAXIS 
+; @keyword XXAXIS
 ; to get the xaxis we need to use in pltbase
-;      
-; @keyword ZZAXIS 
+;
+; @keyword ZZAXIS
 ; to get the yaxis we need to use in pltbase
 ;
-; @keyword SIN 
-; Activate this keyword if we want the x axis to be traced in sinus of the 
+; @keyword SIN
+; Activate this keyword if we want the x axis to be traced in sinus of the
 ; latitude when we make a drawing f(y)
 ;
 ; @keyword ZRATIO {default=2./3}
-; When the drawing has a zoomed part, it is the size rapport between the zoomed part, 
+; When the drawing has a zoomed part, it is the size rapport between the zoomed part,
 ; hz (zoom height), and the whole drawing, ht (total height).
 ;
 ; @keyword _EXTRA
-; used to pass your keywords
-; 
-;  Others: see pltz 
+; Used to pass keywords
+;
+;  Others: see pltz
 ;
 ;
@@ -47 +44 @@
 ;
 ;-
-;------------------------------------------------------------
-;------------------------------------------------------------
-;------------------------------------------------------------
-
+;
 PRO axis4pltz, type, mask, glam, gphi, z, XXAXIS = xxaxis, ZZAXIS = zzaxis, SIN = sin, ZRATIO = zratio, ZOOM = zoom, PROFMAX = profmax, PROFMIN = profmin, _extra = ex
-;
-; include common
 ;
   compile_opt idl2, strictarrsubs
@@ -61 +53 @@
 @updatekwd
   ENDIF
-  
+
 ;--------------------------------------------------------------------
 ; define the mask used for this section
@@ -82 +74 @@
   ENDCASE
 ;
-  if type eq 'yz' then BEGIN 
-    IF (size(gphi))[0] EQ 1 then xxaxis = gphi ELSE BEGIN 
-      IF keyword_set(key_irregular) THEN BEGIN 
+  if type eq 'yz' then BEGIN
+    IF (size(gphi))[0] EQ 1 then xxaxis = gphi ELSE BEGIN
+      IF keyword_set(key_irregular) THEN BEGIN
         cln = (where(gphi EQ max(gphi)))[0]
         xxaxis = reform(gphi[cln MOD nx, *])
@@ -92 +84 @@
   ENDIF ELSE BEGIN
     xxaxis = glam[*, 0]
-  ENDELSE 
+  ENDELSE
   zzaxis = z
 ;----------------------------------------------------------
@@ -113 +105 @@
 ; to draw from bottom to top (avoid using cell_fill)
   CASE size(zzaxis, /n_dimensions) OF
-    1:zzaxis = reverse(-zzaxis) 
-    2:zzaxis = reverse(-zzaxis, 2) 
+    1:zzaxis = reverse(-zzaxis)
+    2:zzaxis = reverse(-zzaxis, 2)
   ENDCASE
   if mask[0] NE -1 then mask = reverse(mask, 2)