# Copyright (c) P.J.Gawthrop 1997

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.12  1998/08/10 14:29:05  peterg
## Removed -s (switches) stuff
##
## 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

  esac
  shift
done


#Create the input file complete with headers.
echo '# -*-octave-*- Put Emacs into octave-mode' > $1_input.txt
echo "# Numerical parameter file ($1_input.txt)" >> $1_input.txt
echo "# Input specification ($1_input.txt)" >> $1_input.txt
echo "# Generated by MTT at `date`" >> $1_input.txt
cat $MTTPATH/trans/rcs_header.sh  >> $1_input.txt
echo "# Set the inputs"  >> $1_input.txt

if [ -n "$steadystate_computation" ]; then 
# Compute inputs from ss.r file
# Inform user

}' Nu=$Nu  <$1_struc.txt >> $1_input.txt
fi

#Set some switches
  echo  >> $1_input.txt
  echo "# Set the switches"  >> $1_input.txt
  strip_comments<$1_switch.txt |\
  awk '{if (length($1)>0) print  tolower($1) "= (t>=0);"}'
  awk '{if (length($1)>0) print  tolower($1) "= (t>=0);"}'  >> $1_input.txt