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.1  1998/07/25 09:47:25  peterg
+## Initial revision
+##
 ###############################################################
 
 
 *}
  
@@ -24,12 +27,15 @@
 VAR
    i : INTEGER;
    
 BEGIN
    write(t);
-   FOR i := 1 TO nx DO
-      write(x[i]);
    FOR i := 1 TO ny DO
       write(y[i]);
+   write(" # ");
+
+   write(t);
+   FOR i := 1 TO nx DO
+      write(x[i]);
    writeln;
 END;