5 * Revision 1.1.1.1 1995/10/24 10:20:51 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.29 by S.Giani
14 C. ******************************************************************
16 C. * Initializes common /GCVOLU/ and JGPAR structure *
18 C. * Called by : GMEDIA *
20 C. * Authors : R.Brun, F.Bruyant *
22 C. ******************************************************************
24 #include "geant321/gcbank.inc"
25 #include "geant321/gcstak.inc"
26 #include "geant321/gcvolu.inc"
27 C. ------------------------------------------------------------------
29 * *** Initialize first level in /GCVOLU/ and in JGPAR structure
33 NAMES(1) = IQ(JVOLUM+1)
39 NLEVMX = IQ(LQ(JVOLUM)-1)
41 IF (LQ(JVO).NE.0) NLDEV(1) = 1
43 IF (JGPAR.EQ.0) CALL MZBOOK (IXCONS, JGPAR, JGPAR, 1,'GPAR',
44 + NLEVMX, 0, NLEVMX, 2, 0)
45 IQ(JGPAR+1) = Q(JVO+5)