Index: mttroot/mtt/bin/trans/m/write_matrix.m
==================================================================
--- mttroot/mtt/bin/trans/m/write_matrix.m
+++ mttroot/mtt/bin/trans/m/write_matrix.m
@@ -5,10 +5,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1996/08/14 08:21:27  peter
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 filename = [name, '.m'];
 filenum = fopen(filename,'w');
@@ -21,11 +24,14 @@
 fprintf(filename, 'm = [\n');
 
 [N,M] = size(matrix);
 for i = 1:N,
   for j = 1:M
-    fprintf(filename, '\t%g', matrix(i,j));
+    fprintf(filename, '%g', matrix(i,j));
+    if j<M
+      fprintf(filename, '\t');
+    end
   end;
   fprintf(filename, '\n');
 end;
 
 fprintf(filename, '];\n');