*-- Author :    I.O.Skillicorn
      SUBROUTINE FTPRLK
*                                                                                                             
*     Make links between single radial and planar segments.                                                   
*     and calculate track parameters.                                                                         
*                                                                                                             
*KEEP,FPPRAM.                                                                                                 
C                                                                                                             
C---  MAXSEG is maximum number of segments per supermodule                                                    
C---  MAXCON is maximum number of amibiguous segments associatable with                                       
C---         one segment                                                                                      
C---  LIMSTO is maximum number of 2 cluster planes intersections to be                                        
C---         stored per supermodule                                                                           
C---  MSEGLM is maximum number of clusters that can be found before                                           
C---         connectivity considered                                                                          
C---  MAXCLU is maximum number of clusters that can be found after                                            
C---         forming non-connected set    MUST BE 50 IF RUN WITH OLD RCW                                      
C---         (cluster = 3/4 digits found in a straight line in one                                            
C---          4-wire orientation)                                                                             
C                                                                                                             
      PARAMETER (MAXSEG = 200)                                          
      PARAMETER (MAXCON = 100)                                          
      PARAMETER (LIMSTO = 5000)                                         
      PARAMETER (MSEGLM = 150)                                          
      PARAMETER (MAXCLU = 50)                                           
C---                                                                                                          
*KEND.                                                                                                        
      COMMON /FPSEG3/ ISGR(3,MAXSEG)                                    
                                                                        
*     Zero pointer list...                                                                                    
      CALL VZERO(ISGR,MAXSEG*3)                                                                        
                                                                        
*     Find links Rad0-Pla1 and Rad1-Pla2...                                                                   
*     Start with 2,3 because these have adjacent radials                                                      
      CALL       FPLKPR(2,0)
      CALL       FPLKPR(3,0)
      CALL       FPLKPR(1,0)
                                                                        
*     Build list of hits, track parameters for these tracks...                                                
      CALL       FTPRTR
                                                                        
      RETURN                                                            
      END                                                               
*