5 * Revision 1.1.1.1 1995/10/24 10:20:28 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.27 by S.Giani
14 C. ******************************************************************
16 C. * Collect multiplicity for all JVOLUM structure *
18 C. * ==>Called by : GDTR0 *
19 C. * Author : P.Zanarini ********* *
21 C. ******************************************************************
23 #include "geant321/gcbank.inc"
24 #include "geant321/gcdraw.inc"
26 C. ------------------------------------------------------------------
34 IF (IQ(JSCA+J).EQ.0) THEN
37 IF (IQ(JSCA+I).EQ.-1) IQ(JSCA+I)=0