*-- Author : S.J. Maxfield
SUBROUTINE FPTRDT
*D: FPTRDT...... SM. New definition of dead wire flag. (Phase 2!)
**----------------------------------------------------------------------
**: FPTRDT 40000 SM. New definition of dead wire flag.
**----------------------------------------------------------------------
**: FPTRDT 30907 RP. Farm changes.
**----------------------------------------------------------------------
**: FPTRDT 30104 SM. reject bad hits flagged by FRLOCO.
**----------------------------------------------------------------------
* Unpack Digitisations from bank FRRE.
* Create intermediate bank FRLC containing local
* coordinates
*
* Store hits in IOS COMMONs for Pattern Recognition
*
* Called once per event. Needs previous call to FTCORG
* to create corrected geometry bank FRG1
*
*
*KEEP,BCS.
*KEEP,CNSTBF.
*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
*
*
*KEND.
* Max allowable bad hit flag...(To be gotten from bank sometime)
* Locators for FRG1 bank
* Locators for FRLC bank
*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
*KEEP,FTFUNCT.
* Statement functions for RADIAL Chamber data access.
* Using Channel Number J
* Module, Wedge-pair and Z-plane numbers...
* Statement function for obtaining WEDGE numbers(0-47) of
* wires at plus and minus ends of Cell numbers
* Statement function for obtaining IOS wire number (1-36)
* Statement functions for PLANAR Chamber data access.
* Using Channel Number J
* Module, orientation, W-cell and Z-plane numbers...
* IPSMD in range 0:8 Planar module number.
*
* IOS wire number (runs from 0 to 36)
* SB plane numbers (1-72) from cell number
* Module, orientation, wire and (typical) cell number from plane
* number in the range 1-72 (planars, radials and combined)
*KEEP,STFCLW.
* statement functions acting on the BOS COMMON LW
* index of element before row number LWROW
* index of L-th element of row number LWROW
* L-th integer element of the LWROW'th row in bank with index LND
* L-th real element of the LWROW'th row in bank with index LND
*
*KEND.
*
IQFRLC = NAMIND('FRLC')
IQFRG1 = NAMIND('FRG1')
*
IFRLC = NLINK('FRLC',NBN)
CALL ERRLOG(107,'S:FPTRDT: FRG1 bank not found')
* Extract Hits...
* Reject alleged hits from dead wires and hits marked bad
* in FRLOCO...
* Is this end of the wire live?
* Increment number of hits in this wire plane...
* Skip if maximum hits exceeded
CALL ERRLOG(101,'W:FPTRDT: MAX HITS exceeded ')
* Wedge number of this hit, Phi and stagger
* of sense wire closest this hit.
* relations between IOS labelling and FRRE bank...
* Next HIT...
*