*-- Author : I.O. Skillicorn 27/09/96 SUBROUTINE FREFIT * REFIT TRACK MODEL INCLUDING PLANARS * this routine updates the radial-based track parameters * using planar data. both phi-z and r-z are updated. * planars alone define r-z *KEEP,FRDIMS. *KEEP,FH1WORK. * Planar geometry * * Radial geometry * * Radial data... * * Planar Data * * Pointers into DIGI bank for IOS labelled hits * * Track segment data * * Fit data * * *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...) *KEEP,FRH3FT. * Common for RETRAC results (SJM) *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 C--- *KEEP,FPLSEG. C--- C--- *KEEP,FPTFLG. *KEEP,FPTPAR. *KEEP,FDIFLG. *KEND. * Common for track parameter errors... * Common for segment numbers... * COMMON FOR IOS PLANAR LINK C THE SIGN OF THE PLANAR DRIFT IS FILLED IN FTADD C COMMON FOR RADIALS ASSOCIATED WITH PLANAR TRACKS C PLANAR SEGMENTS ASSOCIATED WITH RADIALS * Local arrays... C PLANARS CALL FTLFTW(XX,YY,WP,IC,0,2,RS,RI,D1,D2,D3,D4) C PLANARS C RADIALS C RADIUS DEFINED BY radials C REFIT PHI-Z INCLUDING planars C WRITE(*,*)I,phzg(I),rpcosg(I) CALL FTLFTW(XX,YY,WP,IC,0,2,PS,PI,D1,D2,D3,D4) C WRITE(*,*)I,phzg(I),rpcosg(I) *