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
@@ -9,10 +9,12 @@
 VAR
    i,ii,j,jj,Nxsub : 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
@@ -39,9 +41,8 @@
 	    ii := ii+1; 
 	    xnew[i] := xsub[ii];
 	 END
 	 ELSE
 	 xnew[i] := 0.0;
-	 writeln(i,ii);
       END;
 END;{mtt_implicit}			  
 

Index: mttroot/mtt/bin/trans/p/mtt_write.p
==================================================================
--- mttroot/mtt/bin/trans/p/mtt_write.p
+++ mttroot/mtt/bin/trans/p/mtt_write.p
@@ -14,10 +14,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  1999/03/15 21:57:38  peterg
+## Removed the # symbol
+##
 ## Revision 1.4  1998/11/26 13:31:30  peterg
 ## Put missing space after 2nd t
 ##
 ## Revision 1.3  1998/07/25 20:41:38  peterg
 ## Spaces between numbers
@@ -30,20 +33,22 @@
 ##
 ###############################################################
 
 
 *}
+
+CONST TAB=9;
  
 VAR
    i : INTEGER;
    
 BEGIN
-   write(t," ");
+   write(t,chr(TAB));
    FOR i := 1 TO ny DO
-      write(y[i]," ");
+      write(y[i],chr(TAB));
 
-   write(t," ");
+   write(t,chr(TAB));
    FOR i := 1 TO nx DO
-      write(x[i]," ");
+      write(x[i],chr(TAB));
    writeln;
 END;