Changeset 205 for trunk/procs/saxo_mods/pltsc.pro

Timestamp:

01/26/10 10:46:13 (14 years ago)

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/saxo_mods/pltsc.pro (modified) (5 diffs)

trunk/procs/saxo_mods/pltsc.pro

@@ -102 +102 @@
 
 ; Rq: on ne reinitialise pas qd on rapelle pltsc
-   IF NOT keyword_set(ov1d) THEN reinitplt
-   IF NOT keyword_set(thickn) THEN thickn = 2
-   IF NOT keyword_set(fraction) THEN fraction = 1.
+   IF NOT keyword_set(ov1d) THEN BEGIN
+    reinitplt
+   ENDIF
+   IF NOT keyword_set(thickn) THEN BEGIN
+    thickn = 2
+   ENDIF
+   IF NOT keyword_set(fraction) THEN BEGIN
+    fraction = 1.
+   ENDIF
    ;; reduce data xyzt domain
 
    oldboite = [lon1, lon2, lat1, lat2, prof1, prof2]
    IF keyword_set(boite) THEN BEGIN
-      IF n_elements(integration3d) EQ 0 THEN integration3d = n_elements(boite) NE 4
+      IF n_elements(integration3d) EQ 0 THEN BEGIN
+       integration3d = n_elements(boite) NE 4
+      ENDIF
       CASE 1 Of
          N_Elements(Boite) Eq 1:bte=[lon1, lon2, lat1, lat2, 0.,boite[0]]
@@ -134 +142 @@
 
 ; deal with min and max of plot
-   IF finite(min1) EQ 0 THEN min1 = min(tab1)
-   IF finite(max1) EQ 0 THEN max1 = max(tab1)
-   IF finite(min2) EQ 0 THEN min2 = min(tab2)
-   IF finite(max2) EQ 0 THEN max2 = max(tab2)
+   IF finite(min1) EQ 0 THEN BEGIN
+    min1 = min(tab1)
+   ENDIF
+   IF finite(max1) EQ 0 THEN BEGIN
+    max1 = max(tab1)
+   ENDIF
+   IF finite(min2) EQ 0 THEN BEGIN
+    min2 = min(tab2)
+   ENDIF
+   IF finite(max2) EQ 0 THEN BEGIN
+    max2 = max(tab2)
+   ENDIF
 
 
 ; init plot if not overlay
 
-   IF NOT keyword_set(ov1d) THEN placedessin, 'yfx', posfenetre, posbar, $
+   IF NOT keyword_set(ov1d) THEN BEGIN
+    placedessin, 'yfx', posfenetre, posbar, $
     contour = contour, _EXTRA=EXTRA
+   ENDIF
    yy = tab1
    xx = tab2
@@ -154 +172 @@
    !y.range = [min1-fraction*abs(max1-min1)/5.,max1+fraction*abs(max1-min1)/5.]
 
-   IF (NOT keyword_set(sty1d)) THEN sty1d = 0
-   IF (NOT keyword_set(col1d)) THEN col1d = 0
-   IF  NOT keyword_set(ov1d) THEN  BEGIN
+   IF (NOT keyword_set(sty1d)) THEN BEGIN
+    sty1d = 0
+   ENDIF
+   IF (NOT keyword_set(col1d)) THEN BEGIN
+    col1d = 0
+   ENDIF
+   IF NOT keyword_set(ov1d) THEN BEGIN
       legende, min1, max1, 'yfx', VARNAME2 = varname2, NPTS = npts, _EXTRA=extra
 ;
@@ -164 +186 @@
       IF n_elements(ex) NE 0 THEN BEGIN
 ; pour avoir un cadre de la couleur c_cote et trace une ligne a y=0
-         IF (where(tag_names(ex) EQ 'COLOR'))[0] NE -1 THEN ex.COLOR = c_cote
-         IF (where(tag_names(ex) EQ 'LINESTYLE'))[0] NE -1 THEN ex.LINESTYLE= 0
+         IF (where(tag_names(ex) EQ 'COLOR'))[0] NE -1 THEN BEGIN
+          ex.COLOR = c_cote
+         ENDIF
+         IF (where(tag_names(ex) EQ 'LINESTYLE'))[0] NE -1 THEN BEGIN
+          ex.LINESTYLE= 0
+         ENDIF
       ENDIF
       plot, !x.range, [0, 0],/noerase,color=c_cote, xstyle = 1, ystyle = 1, _EXTRA=extra
@@ -180 +206 @@
    terminedessin, _EXTRA=extra
 ;------------------------------------------------------------
-   IF n_elements(key_performance) NE 0 THEN $
-    IF key_performance EQ 1 THEN print, 'temps plt1d', systime(1)-tempsun
+   IF n_elements(key_performance) NE 0 THEN BEGIN
+    IF key_performance EQ 1 THEN BEGIN
+     print, 'temps plt1d', systime(1)-tempsun
+    ENDIF
+   ENDIF
 END