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.4  1996/08/15 12:46:59  peter
+## Removed a spuriuos echo.
+##
 ## Revision 1.3  1996/08/12 20:20:59  peter
 ## Explicit parameters via out put list.
 ## Parameter conversion stuff deleted.
 ##
 ## Revision 1.2  1996/08/11 10:41:52  peter
@@ -48,13 +51,17 @@
 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;
+                  ELSE write MTTVar(i,1), "] = $1_numpar;;";
+  END
+END; 
+
+if MTTNVar=0 THEN
+  write "function foo=$1_numpar;;";
+
 
 write "% function [par_list] = $1_numpar;";
 write "% Created by MTT";
 
 IF MTTNvar>0 THEN
@@ -62,9 +69,12 @@
   FOR i := 1:MTTNvar DO
   BEGIN
     write MTTVar(i,1), "  = 1;	% Default value";
   END;
 END;
+
+if MTTNVar=0 THEN
+  write "foo=0";
 
 
 SHUT "$1_numpar.m";