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 GFNDIG (IUSET, IUDET, NDIGI)
14 C. ******************************************************************
16 C. * SUBR. GFNDIG (IUSET, IUDET, NDIGI*) *
18 C. * Returns the number of digits 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. * NDIGI returns the total number of digits *
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 (JDIGI.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 (JDI.LE.0) GO TO 999
49 CALL GLOOK (IUDET, IQ(JS+1), NDET, IDET)
50 IF (IDET.LE.0) GO TO 999
53 IF (JDID.LE.0) GO TO 999
56 IF (ILAST.NE.0) NDIGI = IQ(JDID+ILAST)