Index: mttroot/mtt/bin/trans/p/mtt_implicit.p
==================================================================
--- mttroot/mtt/bin/trans/p/mtt_implicit.p
+++ mttroot/mtt/bin/trans/p/mtt_implicit.p
@@ -39,8 +39,8 @@
       IF open[i]<0.5 THEN
       BEGIN
 	 ii := ii+1;
 	 xnew[i] := xsub[ii];
       END ELSE
-	 xnew[i] := x[i];
+	 xnew[i] := 0.0;
 END;{mtt_implicit}