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.4  1997/05/15  07:19:19  peterg
+# Put back "tolower"
+#
 # Revision 1.3  1997/05/15  07:13:31  peterg
 # Removed "tolower" function.
 #
 # Revision 1.2  1997/05/01  08:19:04  peterg
 # # is now used as the comment symbol
@@ -32,13 +35,22 @@
 #Create the numpar file complete with headers.
 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 in c format.
+#Write out the variables 
+echo "# Parameters" >> $1_numpar.txt
 awk '{i++; print tolower($1) " = \t1.0; \# Default value"}' $1_sympar.txt \
 >> $1_numpar.txt
 
+#Write out the initial states
+echo "# Initial states" >> $1_numpar.txt
+awk '{
+  if ($1=="state") 
+    print "x[" $2 "] = \t0.0; \# Initial state for " $4 " (" $3 ")"
+}' \
+ $1_struc.txt >> $1_numpar.txt
+