ADDED mttroot/mtt/bin/trans/name2index Index: mttroot/mtt/bin/trans/name2index ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/name2index @@ -0,0 +1,32 @@ +#! /bin/sh + + ###################################### + ##### Model Transformation Tools ##### + ###################################### + +# Bourne shell script: name2index + +# Converts names to array index + +# Copyright (c) P.J.Gawthrop, 1997. + +############################################################### +## Version control history +############################################################### +## $Id$ +## $Log$ +############################################################### + +awk ' +{ + name_index[$4"_"$3]=$2; +} +END{ + N=split(names,Names,","); + for (i=1; i<=N; i++) { + printf("%i,",name_index[Names[i]]) ; + } + printf("\n"); +}' names=$2 < $1_struc.txt + +