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.1  1996/08/12 19:09:13  peter
+## Initial revision
+##
 ###############################################################
 
 #Inform user
 echo Creating $1_dm.m
 
@@ -44,37 +47,30 @@
 OUT "$1_dm.m";
 
 %Headings - Matlab style
 %(Note. The ;; are deleted by for2mat)
 
-IF MTTNvar>0 THEN
-BEGIN
-  write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(...";
-  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,MTTE] = $1_dm;;";
-
-
-IF MTTNvar>0 THEN
-BEGIN
-  write "%function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(...";
-  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,MTTE] = $1_dm;;";
-
-
-write "%Linearised descriptor matrices for system $1";
-write "%File $1_dm.m";
-write "%Generated by MTT";
+write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";
+write "% [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";
+write "% Linearised descriptor matrices for system $1";
+write "% File $1_dm.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;
+
+
 
 ON NERO;	% Suppress zero elements.
 
 %Fortran switches - one line expressions
 OFF echo;