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.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
 ##
 ###############################################################
 
@@ -72,10 +75,23 @@
 
 
 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 "[ ...;;";
+  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;
+
 
 %Fortran switches - one line expressions
 OFF echo;
 ON fort$
 cardno!* := 1$