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.2  1996/08/14 08:36:52  peter
+% %% Puts a tab between columns.
+% %%
 % %% Revision 1.1  1996/08/14 08:21:27  peter
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -17,13 +20,13 @@
 filenum = fopen(filename,'w');
 
 % Write the function m-file for the causal bond graph
 pc = '%';
 fprintf(filenum, 'function data = %s\n', name);
-fprintf(filenum, '%s m = %s\n\n', pc, name);
+fprintf(filenum, '%s data = %s\n\n', pc, name);
 
-fprintf(filename, 'm = [\n');
+fprintf(filename, 'data = [\n');
 
 [N,M] = size(matrix);
 for i = 1:N,
   for j = 1:M
     fprintf(filename, '%g', matrix(i,j));