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.5  1996/08/16 14:27:25  peter
+## Make a dummy function when no parameters (MTTNVar=0).
+##
 ## 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.
@@ -32,10 +35,11 @@
 # Inform user
 echo Creating $1_numpar.m
 
 # Remove the old log file
 rm -f mknumpar.log
+
 
 # Use reduce to accomplish the transformation
 reduce >mknumpar.log << EOF
 
 %Set up the number of argument variables to zero in case the user has forgotten
@@ -61,10 +65,14 @@
   write "function foo=$1_numpar;;";
 
 
 write "% function [par_list] = $1_numpar;";
 write "% Created by MTT";
+
+%% Write RCS stuff
+
+
 
 IF MTTNvar>0 THEN
 BEGIN
   FOR i := 1:MTTNvar DO
   BEGIN
@@ -75,6 +83,17 @@
 if MTTNVar=0 THEN
   write "foo=0";
 
 
 SHUT "$1_numpar.m";
+
+
+
+
+
+
+
+
+
+
+