5 * Revision 1.1.1.1 1995/10/24 10:21:09 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.20 by S.Giani
12 SUBROUTINE GFNHIT (IUSET, IUDET, NHITS)
14 C. ******************************************************************
16 C. * SUBR. GFNHIT (IUSET, IUDET, NHITS*) *
18 C. * Returns the number of hits belonging to the detector IUDET *
21 C. * IUSET User set identifier *
22 C. * IUDET User detector identifier (name of the corresponding *
23 C. * sensivitive volume) *
24 C. * NHITS returns the total number of hits *
26 C. * Called by : <USER> *
27 C. * Author : S.Banerjee *
29 C. ******************************************************************
31 #include "geant321/gcbank.inc"
32 CHARACTER*4 IUSET, IUDET
34 C. ------------------------------------------------------------------
36 * *** Find if selected set, detector exists
39 IF (JHITS.LE.0) GO TO 999
41 CALL GLOOK (IUSET, IQ(JSET+1), NSET, ISET)
42 IF (ISET.LE.0) GO TO 999
46 IF (JS.LE.0) GO TO 999
47 IF (JH.LE.0) GO TO 999
49 CALL GLOOK (IUDET, IQ(JS+1), NDET, IDET)
50 IF (IDET.LE.0) GO TO 999
54 IF (JHD.LE.0) GO TO 999
55 NFIX = IQ(JD+1) + IQ(JD+3) + 1
58 IF (ILAST.GT.0) NHITS = ILAST / NFIX