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.2  1996/08/11 10:41:52  peter
+## Fixed various bugs.
+##
 ## Revision 1.1  1996/08/11 08:48:07  peter
 ## Initial revision
 ##
 ###############################################################
 
@@ -35,49 +38,30 @@
 %Read the symbolic parameters file
 IN "$1_sympar.r";
 
 OUT "$1_numpar.m";
 
-write "function numpar = $1_numpar;";
-write "% function numpar = $1_numpar;";
+
+IF MTTNvar>0 THEN
+BEGIN
+  write "function [ ...;;";
+  FOR i := 1:MTTNvar DO
+  BEGIN
+     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
+                  ELSE write MTTVar(i,1), "] = $1_numpar;;"
+  END;
+END;
+
+write "% function [par_list] = $1_numpar;";
 write "% Created by MTT";
 
 IF MTTNvar>0 THEN
 BEGIN
   FOR i := 1:MTTNvar DO
   BEGIN
-    write "numpar(",i , ") = 1;		% ", MTTVar(i,1);
+    write MTTVar(i,1), "  = 1;	% Default value";
   END;
-END
-ELSE
-  write "numpar = []";
+END;
 
 
 SHUT "$1_numpar.m";
 
-OUT "$1_parconv.m";
-
-write "function [ ...";
-
-IF MTTNvar>0 THEN
-BEGIN
-  FOR i := 1:MTTNvar DO
-  BEGIN
-    IF i<MTTNvar THEN
-      write MTTVar(i,1), ", ..."
-    ELSE
-      write MTTVar(i,1), " ...";
-  END;
-END;
-
-write "] = $1_parconv(numpar);";
-
-IF MTTNvar>0 THEN
-BEGIN
-  FOR i := 1:MTTNvar DO
-  BEGIN
-    write MTTVar(i,1), " = numpar(", i, ");";
-  END;
-END;
-
-SHUT "$1_parconv.m";
-