*-- Author : S.J. Maxfield
SUBROUTINE FPUDAT
**: FPUDAT 40000 SM. New definition of dead wire flag.
**----------------------------------------------------------------------
**: FPUDAT 30907 RP. Farm changes.
C------------------------------------------------------------------
*
* Unpack Digitisations from bank FRPE.
* Create intermediate bank FPLC containing local
* coordinates
*
* Store hits in PLANAR H1WORK for Pattern Recognition
*
* Called once per event. Needs previous call to FTCORG
* to create corrected geometry bank FPG1
*
*KEEP,BCS.
*KEEP,CNSTBF.
*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,FPH1WRK.
C-- *KEEP,FPCSEG.
C---
C---
C-- *KEEP,FPDIGI.
C---
C-- *KEEP,FPDGI.
C---
C-- *KEEP,FPSTID.
C---
C-- *interface to real data
C---.
*KEND.
* Max allowable bad hit flag...(To be gotten from bank sometime)
* Locators for FPG1 bank
* Locators for FPLC 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,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
*
*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)
*KEND.
*-------------------------------------------------------------------
IQFPLC = NAMIND('FPLC')
IQFPG1 = NAMIND('FPG1')
CALL VZERO(NDPW,NUMWPL)
*
CALL ERRLOG(118,'S:FPUDAT: FPG1 bank not found')
* Extract Hits...
* IOS wire planes numbered 1-36 through 3 Modules
* increment number of hits in this wire plane...
CALL ERRLOG(102,'W:FPTPDT: MAX HITS exceeded ')
* W-coordinate of wire...
* Drift in W, Error, flag...
* W-cell number of this hit...
*
* relations between IOS labelling and FRRE bank...
*