--- DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/04/27 10:39:58	1.9
+++ DarthVader/TrackerLevel2/src/F77/functionspfa.f	2007/05/14 11:03:06	1.10
@@ -1,4 +1,23 @@
 
+
+      subroutine idtoc(ipfa,cpfa)
+      
+      integer ipfa
+      character*4 cpfa
+
+      CPFA='COG4'
+      if(ipfa.eq.0)CPFA='ETA'
+      if(ipfa.eq.2)CPFA='ETA2'
+      if(ipfa.eq.3)CPFA='ETA3'
+      if(ipfa.eq.4)CPFA='ETA4'
+      if(ipfa.eq.10)CPFA='COG'
+      if(ipfa.eq.11)CPFA='COG1'
+      if(ipfa.eq.12)CPFA='COG2'
+      if(ipfa.eq.13)CPFA='COG3'
+      if(ipfa.eq.14)CPFA='COG4'
+      
+      end
+
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
 *     this file contains all subroutines and functions
 *     that are needed for position finding algorithms