*-- Author : I.O.SKILLICORN
SUBROUTINE FRPKPL
**----------------------------------------------------------------------
*
* Pick up planar segments on radial-based tracks
* I.O.Skillicorn
* Array Dimensions...
*KEEP,BCS.
*KEEP,BOSMDL.
C ------BOSMDL
C ------
*KEEP,FRDIMS.
*KEEP,FDIFLG.
*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---
*KEND.
*
*KEEP,FH1WORK.
* Planar geometry
*
* Radial geometry
*
* Radial data...
*
* Planar Data
*
* Pointers into DIGI bank for IOS labelled hits
*
* Track segment data
*
* Fit data
*
*
*KEND.
*SUNDRY VERTICES...
*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,FRWERR.
*KEEP,FPTFLG.
*KEEP,FPTPAR.
*KEND.
* FTTRAC Results.
*KEEP,FRH3FT.
* Common for RETRAC results (SJM)
*KEND.
*
* Common for track parameter errors...
* LOCAL ARRAYS...
* ADDED FOR COVARIANCE MATRIX
* Location of endwall...
* Nominal error on x-y vertex...
* Cut to exclude poorly parameterised tracks...
*KEEP,STFUNCT.
* index of element before row number IROW
* index of L'th element of row number IROW
* L'th integer element of the IROW'th row of bank with index IND
* L'th real element of the IROW'th row of bank with index IND
*KEND.
IQF0R8 = NAMIND('F0R8')
* Zero Hit lists,signs etc.
CALL VZERO(SDN, MAXTRK*36)
CALL VZERO(SDP, MAXTRK*36)
CALL VZERO(IRP, MAXTRK*36)
CALL VZERO(IRN, MAXTRK*36)
CALL VZERO(IUSED, MAXHTS*36)
CALL VZERO(IUSEDP,MAXHTS*36)
CALL VZERO(IUSEG, MAXSEG*3)
CALL VZERO(ISGG, MAXTRK*3)
CALL VZERO(IGTTRK,MAXTRK)
*******************************************
* Begin Main loop over linked tracks...
* Build list of radial points on the track...
*-----Debug---------------------------------------------------
* Write(6,'('' FRPKPL>>>'',I4,6X,3I4)')K,M1,M2,M3
*-----Debug---------------------------------------------------
* WRITE(*,*)' ***FRPKPLA** '
* WRITE(*,*)IG,' RADIAL TRACKS '
* PRINT 1001,K,(IRN(J,K),J=1,36),LNK3(K,1),LNK3(K,2),LNK3(K,3)
* PRINT 1002,K,(IRP(J,K),J=1,36),ISGG(1,K),ISGG(2,K),ISGG(3,K)
*1001 FORMAT(' RR',I2,3X,12I2,3X,12I2,3X,12I2,2X,3I2)
*1002 FORMAT(' RP',I2,3X,12I2,3X,12I2,3X,12I2,2X,3I2)
*-----Debug---------------------------------------------------
CALL FPLPKS( IUSEDP, IUSEG)
*