*-- Author : I.O.Skillicorn
SUBROUTINE FPSP
**: FPSP 40000 SM. Undo +SEQ expansion.
**----------------------------------------------------------------------
**: FPSP 30907 RP. Farm changes.
**----------------------------------------------------------------------
*
* SELECT SINGLE PLANAR SEGMENTS IN 1ST MODULE
* THAT DO NOT PROJECT INTO FIRST RADIAL MODULE
*
* Fit parameters are in H1WORK:
* RPCOSG(K) = Slope of Phi-z fit
* RPSING(K) = Slope of R-z fit
* PHZG(K) = Intercept of Phi-z fit (at z=0)
* ZIG(K) = Intercept of R-z fit (at z=0)
* Errors are in FTRERR:
* COMMON /FTRERR/ DSLPHI, DPHZER, COVP, DSLPR, DRZER, COVR
* Dxxxx = sigma (not squared) of parameter xxxx
* COVP = covariance of Phi-z fit parameters
* COVR = covariance of R -z fit parameters
*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...
* Local arrays...
C
C
C--- LOOP OVER SUPERMODULES - FOR RADIALS
C
C MOD 20/1/93 TO PICK UP SINGLE SEMENTS IN ALL MODULES
C
C
C--- search only unused segments
C
C
C--- search only the disconnected set
C
C
C--- Extract planar segment and covariance matrix
C
C STR LINES THROUGH PLANARS IN PHI-Z R-Z
C DISTANCES IN MM HERE FOR RCWH
C---
C---
C---
C TEST IF EXTRAPOLATED PLANAR SEGMENT SHOULD HIT RADIAL
CTEMP R160=RSS*1600. +RIS
CTEMP IF(R160.LT.800.)GOTO15
C
CALL SHS(716,0,11.01)
C BACK TO CMS
*