Index: mttroot/mtt/bin/trans/name2index
==================================================================
--- mttroot/mtt/bin/trans/name2index
+++ mttroot/mtt/bin/trans/name2index
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.2  1997/05/22 09:28:22  peterg
+## Removed trailing , in output.
+##
 ## Revision 1.1  1997/05/22 08:48:21  peterg
 ## Initial revision
 ##
 ###############################################################
 
@@ -24,12 +27,15 @@
 {
   name_index[$4"_"$3]=$2;
 }
 END{
   N=split(names,Names,",");
-  for (i=1; i<N; i++) {
-    printf("%i,",name_index[Names[i]]);
-  }
+  if (N==0)
+    printf("0\n")
+  else {
+    for (i=1; i<N; i++)
+      printf("%i,",name_index[Names[i]]);
   printf("%i\n",name_index[Names[N]]);
+  }
 }'  names=$2 < $1_struc.txt