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.5  1996/09/12 18:34:44  peter
+## Back under rcs.
+##
 # Revision 1.4  1996/08/24  14:12:26  peter
 # Global parameter passing.
 #
 ## Revision 1.3  1996/08/19 18:38:43  peter
 ## Read in the numerical params etc ...
@@ -59,19 +62,28 @@
 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 "% Set the parameters";
   write "global ...;;";
   FOR i := 1:MTTNvar DO
-  BEGIN
-     IF i<MTTNvar THEN write MTTVar(i,1), " ..."
-                  ELSE write MTTVar(i,1), ";"
-  END;
+    BEGIN
+      IF numberp(MTTVar(i,1)) 
+      THEN 
+      BEGIN
+        % Do nowt
+      END
+      ELSE  
+      BEGIN
+        write MTTVar(i,1), " ...";
+      END;
+    END;
+    write " ";
 END;
 
 
 %Fortran switches - one line expressions
 OFF echo;