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