*-- Author :    Stephen J. Maxfield   17/11/92
      SUBROUTINE FRSEG
***********************************************************                                                   
*                                                         *                                                   
*     Find segments in Radial Drift chambers and make     *                                                   
*     output banks FRSG etc.                              *                                                   
*                                                         *                                                   
***********************************************************                                                   
*KEEP,FPTVTX.                                                                                                 
**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.                                                                                                        
C     INITIALISE FLAGS :  VERTEX NOT USED IN FITS                                                             
C     NO CORRECTIONS TO RADIAL POSITIONS                                                                      
*     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
*                                                                                                             
*