Index: mttroot/mtt/bin/trans/dm_r2m
==================================================================
--- mttroot/mtt/bin/trans/dm_r2m
+++ mttroot/mtt/bin/trans/dm_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1996/08/18 12:02:46  peter
+## Fixed bug when some matrices are empty.
+##
 ## Revision 1.2  1996/08/12 20:22:20  peter
 ## Paramaters passed via an internal call to _numpar.
 ## _args script can overide these parameters - sneaky.
 ##
 ## Revision 1.1  1996/08/12 19:09:13  peter
@@ -59,22 +62,18 @@
 write "% File $1_dm.m";
 write "% Generated by MTT";
 
 IF MTTNvar>0 THEN
 BEGIN
-  write "% Read in the parameters";
-  write "[ ...;;";
+  write "% Parameters";
+  write "global ...;;";
   FOR i := 1:MTTNvar DO
   BEGIN
-     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
-                  ELSE write MTTVar(i,1), "] = $1_numpar"
-  END;
-  write "% Read in the arguments";
-  write "$1_args";
-END;
-
-
+     IF i<MTTNvar THEN write MTTVar(i,1), " ..."
+                  ELSE write MTTVar(i,1), ";"
+  END;
+END;
 
 
 %Fortran switches - one line expressions
 OFF echo;
 ON fort$

Index: mttroot/mtt/bin/trans/ode2odes_m
==================================================================
--- mttroot/mtt/bin/trans/ode2odes_m
+++ mttroot/mtt/bin/trans/ode2odes_m
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  1996/08/18 12:01:26  peter
+## Unified format of time responses.
+##
 ## Revision 1.4  1996/08/16 13:04:46  peter
 ## Fixed problem with more than one output (y vector).
 ##
 ## Revision 1.3  1996/08/16 06:36:03  peter
 ## Removed u from default arg list.
@@ -41,11 +44,14 @@
 fi
 
 PARAMS="$PARAMS ;"
 
 
-$MATRIX << EOF > ode2odes_m.log
+$MATRIX << EOF > ode2odes_m.log 2>mtt_error
+
+  %Read in parameters
+  $1_numpar;
 
   [nx,ny,nu,nz,nyz] = $1_def;
   t=0;	%Just in case it appears in the parameter list.
 
   $PARAMS
@@ -79,11 +85,24 @@
   end;
   write_matrix([T,y], '$1_odeso');
 end;
 
 EOF
+
+err_length=$(wc -c <mtt_error)
+
+# Test for errors and print if any
+if [ $err_length != "0" ]
+then
+  echo MTT has failed with the following errors '...'
+  cat mtt_error
+  exit 1
+else
+  exit 0
+fi
+
 
 
 
 
 
 

Index: mttroot/mtt/bin/trans/ode_r2m
==================================================================
--- mttroot/mtt/bin/trans/ode_r2m
+++ mttroot/mtt/bin/trans/ode_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1996/08/18 12:03:49  peter
+## Initial revision
+##
 ###############################################################
 
 #Inform user
 echo Creating $1_ode.m
 echo Creating $1_odeo.m
@@ -47,15 +50,15 @@
 PROCEDURE common;
 BEGIN
   IF MTTNvar>0 THEN
   BEGIN
     write "% Read in the parameters";
-    write "[ ...;;";
+    write "global ...;;";
     FOR i := 1:MTTNvar DO
     BEGIN
-       IF i<MTTNvar THEN write MTTVar(i,1), ",..."
-                    ELSE write MTTVar(i,1), "] = $1_numpar"
+       IF i<MTTNvar THEN write MTTVar(i,1), " ..."
+                    ELSE write MTTVar(i,1), ";"
     END;
   END;
   
   write "% Read in the input";
   write "u = $1_input(t)";
@@ -118,13 +121,12 @@
 OFF period$
 
 MTTy := MTTy;
 
 SHUT "$1_odeo.m";
-
 
 
 
 
 
 
 

Index: mttroot/mtt/bin/trans/sm_r2m
==================================================================
--- mttroot/mtt/bin/trans/sm_r2m
+++ mttroot/mtt/bin/trans/sm_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.3  1996/08/19 18:38:43  peter
+## Read in the numerical params etc ...
+##
 ## Revision 1.2  1996/08/19 16:25:18  peter
 ## Fixed bug when Nx=0.
 ##
 ## Revision 1.1  1996/08/19 15:14:51  peter
 ## Initial revision
@@ -44,52 +47,28 @@
 %Read in the parameter file
 IN "$1_sympar.r";
 
 
 OUT "$1_sm.m";
-
 %Headings - Matlab style
 %(Note. The ;; are deleted by for2mat)
 
-IF MTTNvar>0 THEN
-BEGIN
-  write "function [MTTA,MTTB,MTTC,MTTD] = $1_sm(...";
-  FOR i := 1:MTTNvar DO
-  BEGIN
-     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
-                  ELSE write MTTVar(i,1), ");;";
-  END;
-END
-ELSE write "function [MTTA,MTTB,MTTC,MTTD] = $1_sm;;";
-
-
-IF MTTNvar>0 THEN
-BEGIN
-  write "%function [MTTA,MTTB,MTTC,MTTD] = $1_sm(...";
-  FOR i := 1:MTTNvar DO
-  BEGIN
-     IF i<MTTNvar THEN write "%", MTTVar(i,1), ",..."
-                  ELSE write "%", MTTVar(i,1), ");;";
-  END;
-END
-ELSE write "%function [MTTA,MTTB,MTTC,MTTD] = $1_sm;;";
-
+write "function [MTTA,MTTB,MTTC,MTTD] = $1_sm;;";
+write "%function [MTTA,MTTB,MTTC,MTTD] = $1_sm;;";
 
 write "%Linearised state matrices for system $1";
 write "%File $1_sm.m";
 write "%Generated by MTT";
 IF MTTNvar>0 THEN
 BEGIN
-  write "% Read in the parameters";
-  write "[ ...;;";
+  write "% Set the parameters";
+  write "global ...;;";
   FOR i := 1:MTTNvar DO
   BEGIN
-     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
-                  ELSE write MTTVar(i,1), "] = $1_numpar"
+     IF i<MTTNvar THEN write MTTVar(i,1), "..."
+                  ELSE write MTTVar(i,1), ";"
   END;
-  write "% Read in the arguments";
-  write "$1_args";
 END;
 
 
 %Fortran switches - one line expressions
 OFF echo;

Index: mttroot/mtt/bin/trans/sympar2numpar_r2m
==================================================================
--- mttroot/mtt/bin/trans/sympar2numpar_r2m
+++ mttroot/mtt/bin/trans/sympar2numpar_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.6  1996/08/20 08:21:24  peter
+## *** empty log message ***
+##
 ## Revision 1.5  1996/08/16 14:27:25  peter
 ## Make a dummy function when no parameters (MTTNVar=0).
 ##
 ## Revision 1.4  1996/08/15 12:46:59  peter
 ## Removed a spuriuos echo.
@@ -48,30 +51,22 @@
 %Read the symbolic parameters file
 IN "$1_sympar.r";
 
 OUT "$1_numpar.m";
 
+write "% Script $1_numpar;";
+write "% Created by MTT";
 
 IF MTTNvar>0 THEN
 BEGIN
-  write "function [ ...;;";
+  write "global ...;;";
   FOR i := 1:MTTNvar DO
   BEGIN
-     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
-                  ELSE write MTTVar(i,1), "] = $1_numpar;;";
+     IF i<MTTNvar THEN write MTTVar(i,1), " ..."
+                  ELSE write MTTVar(i,1), ";";
   END
 END; 
-
-if MTTNVar=0 THEN
-  write "function foo=$1_numpar;;";
-
-
-write "% function [par_list] = $1_numpar;";
-write "% Created by MTT";
-
-%% Write RCS stuff
-
 
 
 IF MTTNvar>0 THEN
 BEGIN
   FOR i := 1:MTTNvar DO
@@ -80,11 +75,10 @@
   END;
 END;
 
 if MTTNVar=0 THEN
   write "foo=0";
-
 
 SHUT "$1_numpar.m";