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.3  1997/05/22 09:42:48  peterg
+## Returns 0 if no names.
+##
 ## 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
@@ -26,16 +29,25 @@
 awk '
 {
   name_index[$4"_"$3]=$2;
 }
 END{
-  N=split(names,Names,",");
-  if (N==0)
+  M=split(names,xynames,":");
+  if (M==0)
     printf("0\n")
-  else {
+  else
+    {
+    if (M==1) 
+      printf("1,");
+    else {  
+        printf("%i,",name_index[xynames[1]]+1);
+        names=xynames[2]
+       }
+
+    N=split(names,Names,",");
     for (i=1; i<N; i++)
-      printf("%i,",name_index[Names[i]]);
-  printf("%i\n",name_index[Names[N]]);
+      printf("%i,",name_index[Names[i]]+1);
+  printf("%i\n",name_index[Names[N]]+1);
   }
 }'  names=$2 < $1_struc.txt