*-- 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... *