*-- Author : Stephen Burke SUBROUTINE FFCHEK(JDIGP,JDIGR,JMAX) *-----------------------------------------Updates 07/09/93------- **: FFCHEK 40000 SB. New definition of dead wire flag. *-----------------------------------------Updates 03/05/93------- **: FFCHEK 40000 SB. Allow for hits with no digi. **: FFCHEK 40000 SB. Fix bug in efficiency histograms *-----------------------------------------Updates 28/01/92------- **: FFCHEK 30205.SB. Fix bug in efficiency histograms *-----------------------------------------Updates 24/01/92------- **: FFCHEK 30205.SB. Check to see if the drift sign is correct. **: FFCHEK 30205.SB. Add a check for dead wires *-----------------------------------------Updates---------------- ********************************************************************** * * * Calculate and histogram the efficiency and inefficiency of the * * FT pattern recognition, for planars, radials and both together * * * * NB Histograms are booked in FFHBK * * * ********************************************************************** *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,FFSTEE. *KEEP,FFGEO. *KEEP,FFWBI. * Work bank indices (note that INDKTR is *NOT* a work bank index!) *KEEP,FKDBG. *KEEP,FFDBG. *KEEP,BCS. *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) *KEND. ********************************************************************** * Put this track in the list of true tracks * Current true track CALL VZERO(MODHIT,12) * Check for dead wire C NGOODP = NGOODP + 1 * Check for dead wire C NGOODR = NGOODR + 1 CALL HFILL(311,EFF1P,0.,1.) CALL HFILL(311,-1.,0.,1.) CALL HFILL(314,EFF2P,0.,1.) CALL HFILL(321,FLOAT(NDIGP),0.,1.) CALL HFILL(312,EFF1R,0.,1.) CALL HFILL(312,-1.,0.,1.) CALL HFILL(315,EFF2R,0.,1.) CALL HFILL(322,FLOAT(NDIGR),0.,1.) CALL HFILL(313,EFF1,0.,1.) CALL HFILL(313,-1.,0.,1.) CALL HFILL(316,EFF2,0.,1.) CALL HFILL(323,FLOAT(NUM),0.,1.) *