*-- Author : Stephen Burke SUBROUTINE FFRHNT(ICELL,DRIFT,IWEDGE,JMIN) *-----------------------------------------Updates 07/09/93------- **: FFRHNT 40000 SB. New definition of dead wire flag. *-----------------------------------------Updates 27/07/93------- **: FFRHNT 30907 RP. Farm changes. **---------------------------------------------------------------------- **: FFRHNT 30907 SB. Check for bad hits (again). **---------------------------------------------------------------------- **: FFRHNT 30104 SM. Check for bad hits. **---------------------------------------------------------------------- ********************************************************************** * * * Look for a radial digi near a specified point * * * * NB The FRRE bank must have been unpacked into FRLC and FRHC, with * * a pointer to FRLC in INDLC(2) in /FFGEO/ * * * ********************************************************************** *KEEP,FKNPL. * * Per-track values can go in H1WORK; note that LTRUE and LFIRST must * be set at least per event. * * This is about 36k words long; the remaining common blocks are * about 3.6k in total. Some of this could be in /H1WORK/, but the * blocks would have to be reorganised. * * /FKPROJ/ * /FKFILT/ * /FKSMTH/ * /FKINT/ * /FKRSID/ * /FKTRUE/ * /FKDBG/ *KEEP,FFGEO. *KEEP,BCS. *KEEP,CNSTBF. *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 * *KEND. ********************************************************************** INDHC = NLINK('FRHC',0) * Check for dead wires * * Find the hit with the minimum difference between its drift and * the target drift. Since the resolution is 150 um and the two-track * resolution is 2 mm there is never any ambiguity; also no need to * look at the radius. * * Check that it's the right wedge, and the hit is OK *