SUBROUTINE  : FTLINK
 
AUTHOR : I.O. Skillicorn
 
DATE : 23/02/93
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
          Organise linking of radial line segments                              
          to form radial-based tracks.                                          
                                                                                
LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS:                       
                                                                                
                                                                                
 Radial track segments:                                                         
          NTRAKS segments/module                                                
          Hits/drift sign         :- IRPT/SDRFT                                 
          Parameters(phi',phi0)   :- PCOSL,phzl                                 
          Parameters(R',R0)       :- PSINL,RZI                                  
                                                                                
LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS:                      
                                                                                
                                                                                
 Radial-based tracks:                                                           
          IG tracks                                                             
          Segments                :- LNK3                                       
          Parameters(phi',phi0)   :- RPCOSG,phzg                                
          Parameters(R',R0)       :- RPSING,ZIG                                 
                                                                                
 
CALLING TREE from FTLINK :
 
  CALL FTJN3       == tree ==>
  CALL FTJN23      == tree ==>
  CALL FTJN12      == tree ==>
  CALL FTJN13      == tree ==>
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 FRDIMS FH1WORK FPTVTX                                                                                        
 

 
Comments from FTLINK