SUBROUTINE  : FTJN13(CF,IU,LLL,LL,RPC,RPS,PH,CH,    ZI)
 
AUTHOR : I.O. Skillicorn
 
DATE : 09/10/92
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
                                                                                
          Link radial line segments: modules 1 and 3                            
                                                                                
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 FTJN13 :
 
  CALL FTLFTW      == tree ==>
  CALL FTCHKH      == tree ==>
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 FRDIMS FH1WORK FPTVTX FJNPAR                                                                                 
 

 
Comments from FTJN13