ADDED   mttroot/mtt/bin/trans/m/mtt_error.m
Index: mttroot/mtt/bin/trans/m/mtt_error.m
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/m/mtt_error.m
@@ -0,0 +1,31 @@
+function mtt_error(message, errorfile);
+% mtt_error(message, errorfile);
+
+% function [bonds, status] = abg2cbg(bonds,components,system_name,filename)
+% 
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+%     %%%%% Model Transformation Tools %%%%%
+%     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% Version control history
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %% $Id$
+% %% $Log$
+% %% Revision 1.2  1997/02/11 10:06:42  peterg
+% %% Removed a debugging line.
+% %%
+% %% Revision 1.1  1996/08/18  20:06:57  peter
+% %% Initial revision
+% %%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% Set default file if it isn't there already
+if nargin<2
+  errorfile = fopen('mtt_error.txt','a');
+end;
+
+fprintf(errorfile, '*MTT ERROR : %s\n', message);
+
+#error('MTT exiting this transformation on error');
+