*-- 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 *