SUBROUTINE  : FPKPKR
 
AUTHOR : I.O.Skillicorn
 
DATE : 26/07/93
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
          Finds radial line segments on planar-based tracks                     
                                                                                
LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS:                       
                                                                                
 Planar-based  tracks:                                                          
          NPP tracks                                                            
          Hits                    :- IRR/SRR IPP/SPP                            
          Segments radials/planars:- LRR LPP                                    
          Parameters(phi',phi0)   :- PSSS,PISS                                  
          Parameters(R',R0)       :- RSSS,RISS                                  
 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:                      
                                                                                
          Hits /drift sign        :- IRR/SRR                                    
          Segments radials        :- LRR                                        
          Used flag               :- IRUSED                                     
                                                                                
 
CALLING TREE from FPKPKR :
 
  CALL FTLFT       == tree ==>
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 FRDIMS FH1WORK FPTVTX FRH3FT FPPRAM FPLSEG FPTFLG FPTPAR FDIFLG                                              
                                                                                                              
 

 
Comments from FPKPKR