Index: mttroot/mtt/bin/trans/struc2input_txt2txt
==================================================================
--- mttroot/mtt/bin/trans/struc2input_txt2txt
+++ mttroot/mtt/bin/trans/struc2input_txt2txt
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.11  1998/08/10 14:23:58  peterg
+## Added -ss option
+##
 ## Revision 1.10  1998/07/27 11:10:38  peterg
 ## Put in octave-mode line for Emacs
 ##
 ## Revision 1.9  1998/07/25 20:10:37  peterg
 ## lower case mttu
@@ -47,15 +50,12 @@
 ###############################################################
 
 #Look for a command line argument
 # By default, don't look for BG switches
 
-switches=no
 while [ -n "`echo $1 | grep '-'`" ]; do
   case $1 in
-	-s )
-		switches=yes ;;
 	-ss )
 		steadystate_computation=yes ;;
 	*)
 		echo "$1 is an invalid argument - ignoring" ;;
   esac
@@ -102,13 +102,12 @@
   }
 }' Nu=$Nu  <$1_struc.txt >> $1_input.txt
 fi
 
 #Set some switches
-if [ "$switches" = "yes" ]; then
   echo  >> $1_input.txt
   echo "# Set the switches"  >> $1_input.txt
-  awk '{print  tolower($1) "= (t>=0);"}'< $1_switch.txt   >> $1_input.txt
-fi
+  strip_comments<$1_switch.txt |\
+  awk '{if (length($1)>0) print  tolower($1) "= (t>=0);"}'