Index: mttroot/mtt/bin/trans/m/mat2mfile.m
==================================================================
--- mttroot/mtt/bin/trans/m/mat2mfile.m
+++ mttroot/mtt/bin/trans/m/mat2mfile.m
@@ -11,10 +11,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.1  1996/12/04 21:53:00  peterg
+% %% Initial revision
+% %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 % Copyright (c) P.J. Gawthrop, 1996.
 
@@ -22,14 +25,10 @@
 
 [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,