*-- Author : I. O. Skillicorn 16/11/92
SUBROUTINE FPLPKP
**: FPLPKP 40000 RP. New debug histos kicked out on the farm!
**: FPLPKP 40000 SM. New debug histos.
**----------------------------------------------------------------------
**: FPLPKP 30907 RP. Farm changes.
**----------------------------------------------------------------------
*
* Routine to organise linking of planar segments
* to form planar-based tracks and to pick up
* radial line-segments
*
*
*MOD SJM. Add section to fill planar drift signs (moved from FTADD)
*MOD SJM. Ensure radial segments only used once!
*
*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 IOS PLANAR LINK
C COMMON FOR RADIALS ASSOCIATED WITH PLANAR TRACKS
C PLANAR SEGMENTS ASSOCIATED WITH RADIALS
*KEEP,FPSTSG.
C---
*KEND.
* Local arrays...
* Zero used radial segment array. Note that radial segment may
* have been used already on a radial-based trac. Such ambiguities
* are removed later in FTMERG.
CALL VZERO(IRUSED,300)
C
C--- Loop over supermodules
C
CDEB WRITE(*,*)' ISM NFSEG ',ISM,NFSEG(ISM)
C
C--- Loop over planar segments. Fill Arrays
C
C
C--- search only the disconnected set
C
CALL SHS(765,0,FLOAT(ISM))
C
C--- EXTRACT PLANAR SEGMENT
C
C FILL IOS PARAMETERS FOR LINK
C DY/DZ Y DX/DZ X
C IOS TO RCWH NUMBER LINK
C WRITE(*,*)' ISM ROB IOS #',ISM,IP,KK
C FILL POINT BANK AND SIGN
CALL SHS(764,0,FPTS)
C PRINT 2000,ISM,IP,KK,(IPT(IWW,KK,ISM),IWW=1,12)
C
C--- End of loop over planars segments for supermodule
C
C
C--- End of loop over supermodules
C
C CALL ROUTINES TO LINK SEGMENTS
CALL FPPJN3
CALL FPPJ12
CALL FPPJ23
CALL FPPJ13
C LIST LINKS
CALL SHS(560,0,FLOAT(NPP)+0.01)
* PRINT 1001,I,(IPP(II,I),II=1,36),CHPP(I),IP1,IP2,IP3
C STORE RCWH POINTERS
C zero radial pointers
C END OF LINK SECTION
CALL FPKPKR
*-----Debug---------------------------------------------------
* WRITE(*,*)' ***FPLPKP*** '
* WRITE(*,*)IG,' RADIAL TRACKS '
*-------------------------------------------------------------
*-----Debug---------------------------------------------------
* DO 300 I=1,IG
* PRINT 1001,I,(IRN(K,I),K=1,36),LNK3(I,1),LNK3(I,2),LNK3(I,3)
* PRINT 1002,I,(IRP(K,I),K=1,36),ISGG(1,I),ISGG(2,I),ISGG(3,I)
*300 CONTINUE
*-------------------------------------------------------------
*-----Debug---------------------------------------------------
* WRITE(*,*)NPP,' PLANAR TRACKS '
C
C
CALL SHS(766,0, 1.01)
CALL SHS(766,0, 2.01)
CALL SHS(766,0, 3.01)
CALL SHS(766,0, 4.01)
* PRINT 1004,I,(IRR(K,I),K=1,36),LRR(1,I),LRR(2,I),LRR(3,I)
* PRINT 1003,I,(IPP(K,I),K=1,36),LPP(1,I),LPP(2,I),LPP(3,I)
*-------------------------------------------------------------
*