SUBROUTINE  : FPLKPR(ISMP,IDM )
 
AUTHOR : I.O.Skillicorn
 
DATE : 26/07/93
 
LANGUAGE : FORTRAN
 
SHORT SUMMARY of PURPOSE:                                                
                                                                                
          Link single planar segments to radial segments                        
          Planar(radial) segments have not been used                            
          to make planar(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                                  
 Planar track segments:                                                         
          NFSEG segments/module                                                 
          Hits                    :- IDGISG                                     
          Parameters(x0,y0,x',y') :- XYDXY in mm                                
                                                                                
                                                                                
                                                                                
LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS:                      
                                                                                
          Planar-radial pointer   :- ISGR                                       
          Used flags              :- IUZP,IUSR                                  
                                                                                
 
CALLING TREE from FPLKPR :
 
  CALL FTLFT       == tree ==>
 
FUNCTIONS USED :
 
None
 
KEEP SEQUENCES USED :
 
 FRDIMS FH1WORK FPTVTX FRH3FT FPPRAM FPLSEG FPTFLG FPTPAR FDIFLG                                              
                                                                                                              
 

 
Comments from FPLKPR