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
@@ -8,12 +8,10 @@
 VAR
    i,ii,j,jj : INTEGER;
    BB,xsub   : StateVector;
    AAsub     : StateMatrix;
    
-(*$I $MTTPATH/trans/p/mtt_solve.p *)
-
 BEGIN{mtt_implicit}
    ii := 0;
    FOR i := 1 TO  Nx DO {BB is (1-A*dt)*x +dx*dt}
    BEGIN
       IF open[i]<0.5 THEN