SUBROUTINE FRSEG
*-- Author :    Stephen J. Maxfield   17/11/92
      SUBROUTINE FRSEG
***********************************************************                                                   
*                                                         *                                                   
*     Find segments in Radial Drift chambers and make     *                                                   
*     output banks FRSG etc.                              *                                                   
*                                                         *                                                   
***********************************************************                                                   
*KEEP,FPTVTX.                                                                                                 
      COMMON/VERTVV/ZV ,XVV,YVV                                         
**the common/VERTEX/ becomes /VERTVV/ (in analogy to /VERTFF/) on the                                         
** 17/6/91, since it is in conflict with the VERTEX module (g.bernardi)                                       
** (note that all these common names should start by F in this deck...)                                       
*KEND.                                                                                                        
      COMMON/FVFLAG/IVERTX                                              
      COMMON/CORRXY/CX1,CX2,CX3,CY1,CY2,CY3                             
C     INITIALISE FLAGS :  VERTEX NOT USED IN FITS                                                             
      IVERTX=0                                                          
C     NO CORRECTIONS TO RADIAL POSITIONS                                                                      
      CX1=0.                                                            
      CX2=0.                                                            
      CX3=0.                                                            
      CY1=0.                                                            
      CY2=0.                                                            
      CY3=0.                                                            
*     Zero Arrays for this Event...                                                                           
      CALL FPTZER
*     Unpack primary event vertex in Monte Carlo...                                                           
      CALL FPTVER
*     Unpack radial data...                                                                                   
      CALL FPTRDT
*     ...and planar data.                                                                                     
      CALL FPTPDT
*     Pattern recognise radials. One Module at a time...                                                      
      CALL  FTLSEG(1, 1)
      CALL  FTLSEG(13,2)
      CALL  FTLSEG(25,3)
*     Fit tracks without vertex constraint...                                                                 
      CALL  FTFIT
*     Output radial segment banks FRSG...                                                                     
      CALL FRSOUT
*                                                                                                             
      RETURN                                                            
      END                                                               
*