Changeset 205 for trunk/procs/macros/make_eos_tem.pro

Timestamp:

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

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/macros/make_eos_tem.pro (modified) (2 diffs)

trunk/procs/macros/make_eos_tem.pro

@@ -118 +118 @@
    idxt=where(t eq valmask)
    idxs=where(s eq valmask)
-   IF idxt[0] NE -1 THEN t[idxt]=0.
-   IF idxs[0] NE -1 THEN s[idxs]=0.
+   IF idxt[0] NE -1 THEN BEGIN
+    t[idxt]=0.
+   ENDIF
+   IF idxs[0] NE -1 THEN BEGIN
+    s[idxs]=0.
+   ENDIF
 ;
 ; potential volumic mass
@@ -130 +134 @@
    rhopn = ( ( 4.8314E-4*s + r3*sr +r2)*s +r1)
 
-   IF idxs[0] NE -1 THEN rhopn[idxt] = valmask
+   IF idxs[0] NE -1 THEN BEGIN
+    rhopn[idxt] = valmask
+   ENDIF
 
    fdirec = tn.direc