Index: mttroot/mtt/bin/trans/sympar2numpar_txt2txt
==================================================================
--- mttroot/mtt/bin/trans/sympar2numpar_txt2txt
+++ mttroot/mtt/bin/trans/sympar2numpar_txt2txt
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.12  1999/03/02 22:01:21  peterg
+## *** empty log message ***
+##
 ## Revision 1.11  1998/06/15 15:14:46  peterg
 ## Don't print if blank line
 ##
 ## Revision 1.10  1998/03/07 15:27:20  peterg
 ## Don't do initial states.
@@ -50,24 +53,24 @@
 # Revision 1.1  1997/05/01  07:35:48  peterg
 # Initial revision
 #
 ###############################################################
 
-
 # Inform user
 echo Creating $1_numpar.txt
 
 #Create the numpar file complete with headers.
 echo '# -*-octave-*- Put Emacs into octave-mode' > $1_numpar.txt
 echo "# Numerical parameter file ($1_numpar.txt)" >> $1_numpar.txt
 echo "# Generated by MTT at `date`" >> $1_numpar.txt
 cat $MTTPATH/trans/rcs_header.txt  >> $1_numpar.txt
 
-#Write out the variables 
+#Write out the variables
 echo "# Parameters" >> $1_numpar.txt
-awk '{i++; if (NF>0) print tolower($1) " = \t1.0; \# " $2}' $1_sympar.txt \
->> $1_numpar.txt
+strip_comments <$1_sympar.txt |\
+awk '{i++; if (NF>0) print tolower($1) " = \t1.0; \# " $2}'\
+  >> $1_numpar.txt
 
 #Write out the initial states
 #echo  >> $1_numpar.txt
 #echo "# Initial states" >> $1_numpar.txt
 #awk '{