ADDED   mttroot/mtt/bin/trans/m/mat2mfile.m
Index: mttroot/mtt/bin/trans/m/mat2mfile.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/mat2mfile.m
@@ -0,0 +1,46 @@
+function  mat2mfile(matrix, matrix_name, filenum);
+% mat2mfile - writes a matrix as part of an  m-file
+% 
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% 
+% Matlab function  mat2mfile
+% mat2mfile(matrix, matrix_name, filenum)
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+% Copyright (c) P.J. Gawthrop, 1996.
+
+%Writes out a matrix as a matlab m-file
+
+[N, M] = size(matrix);
+
+empty = (N==1)&(M==1)&(matrix(1,1)==0);
+
+% $$$  if nargin<3
+% $$$   filenum = 'stdout';
+% $$$ end;
+
+%Write out the matrix
+fprintf(filenum, '%s = [\n', matrix_name);
+
+if ~empty
+  for i = 1:N,
+    for j = 1:M
+      fprintf(filenum, '%1.0f ', matrix(i,j));
+    end;
+    fprintf(filenum, '\n');
+  end;
+else
+  fprintf(filenum,'0');
+end;
+fprintf(filenum, '];\n');
+fprintf(filenum, '\n');
+