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.4  1996/08/24 14:16:25  peter
+## Global parameter passing.
+##
 ## 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.
@@ -62,17 +65,25 @@
 write "% File $1_dm.m";
 write "% Generated by MTT";
 
 IF MTTNvar>0 THEN
 BEGIN
-  write "% Parameters";
+  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;