--- trunk/phylmd/FCTTRE.f	2014/08/29 13:00:05	103
+++ trunk/phylmd/FCTTRE.f	2014/09/04 10:05:52	104
@@ -100,10 +100,9 @@
 
     !-----------------------
 
-    dqsatl = RLVTT / RCPD * qs * LOG(10.) &
-         * (2948.964/t**2-5.028/LOG(10.)/t &
-         +25.21935*2999.924/t**2*EXP(-2999.924/t) &
-         +29810.16*0.0699382*EXP(-0.0699382*t))
+    dqsatl = RLVTT / RCPD * qs * LOG(10.) * (2948.964 / t**2 - 5.028 &
+         / LOG(10.) / t + 25.21935 * 2999.924 / t**2 * EXP(- 2999.924 / t) &
+         + 29810.16 * 0.0699382 * EXP(- 0.0699382 * t))
 
   end function dqsatl