Index: mttroot/mtt/bin/trans/m/mtt_write.m
==================================================================
--- mttroot/mtt/bin/trans/m/mtt_write.m
+++ mttroot/mtt/bin/trans/m/mtt_write.m
@@ -1,23 +1,29 @@
-function mtt_write(t,x,y,nx,ny);
+function mtt_write(t,x,y,nx,ny,first);
 
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  2001/03/30 15:13:58  gawthrop
+## Rationalised simulation modes to each return mtt_data
+##
 ## Revision 1.4  1999/03/15 23:05:29  peterg
 ## A complete rewrite - now puts into a Global matrix MTT_data
 ##
 ## Revision 1.3  1999/03/15 21:57:00  peterg
 ## Removed the # symbol
 ##
 ###############################################################
 
 global MTT_data
-  if t==0.0
+  if (t==0.0)
     MTT_data=[];
   endif
 
-  MTT_data = [MTT_data; t,y',t,x'];
+  if (t>= first)
+    MTT_data = [MTT_data; t,y',t,x'];
+  endif
+  
 endfunction