Index: mttroot/mtt/bin/trans/name2index
==================================================================
--- mttroot/mtt/bin/trans/name2index
+++ mttroot/mtt/bin/trans/name2index
@@ -13,20 +13,23 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1997/05/22 08:48:21  peterg
+## Initial revision
+##
 ###############################################################
 
 awk '
 {
   name_index[$4"_"$3]=$2;
 }
 END{
   N=split(names,Names,",");
-  for (i=1; i<=N; i++) {
-    printf("%i,",name_index[Names[i]]) ;
+  for (i=1; i<N; i++) {
+    printf("%i,",name_index[Names[i]]);
   }
-  printf("\n");
+  printf("%i\n",name_index[Names[N]]);
 }'  names=$2 < $1_struc.txt