Changeset 205 for trunk/procs/densit_pltmap_read.pro

Timestamp:

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

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/densit_pltmap_read.pro (modified) (1 diff)

trunk/procs/densit_pltmap_read.pro

@@ -20 +20 @@
          cumulative = 0.
          FOR i = 1, 12 DO BEGIN
-            IF strlen(strmid(strcompress(string(year_s)),1)) eq 1 THEN year_s_string = '0'+strmid(strcompress(string(year_s)),1)
-            IF strlen(strmid(strcompress(string(year_s)),1)) GT 1 THEN year_s_string = strmid(strcompress(string(year_s)),1)
+            IF strlen(strmid(strcompress(string(year_s)),1)) eq 1 THEN BEGIN
+             year_s_string = '0'+strmid(strcompress(string(year_s)),1)
+            ENDIF
+            IF strlen(strmid(strcompress(string(year_s)),1)) GT 1 THEN BEGIN
+             year_s_string = strmid(strcompress(string(year_s)),1)
+            ENDIF
             IF i LE 9 THEN BEGIN
                cmd.date1 = year_s_string+'0'+strtrim(string(i), 2)