ADDED mttroot/mtt/bin/trans/struc2input_txt2txt Index: mttroot/mtt/bin/trans/struc2input_txt2txt ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/struc2input_txt2txt @@ -0,0 +1,32 @@ +#! /bin/sh + + ###################################### + ##### Model Transformation Tools ##### + ###################################### + +# Bourne shell script: struc2input_txt2txt +# Creates the deafault numerical parameters file for the system (txt) + +# Copyright (c) P.J.Gawthrop 1997 + +############################################################### +## Version control history +############################################################### +## $Id$ +## $Log$ +############################################################### + +# Inform user +echo Creating $1_input.txt + +#Create the input file complete with headers. +echo "# Numerical parameter file ($1_input.txt)" > $1_input.txt +echo "# Generated by MTT at `date`" >> $1_input.txt +cat $MTTPATH/trans/rcs_header.txt >> $1_input.txt + +#Write out the defaults. +awk '{i++; if($1=="input") print "u(" i ") =\t1.0; \# " $3 " (Default value)"}' $1_struc.txt >> $1_input.txt + + + +