GEANT321/ggeom/gmedin.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:51  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.29  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GMEDIN
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *   Initializes common /GCVOLU/ and JGPAR structure              *
  17 C.    *                                                                *
  18 C.    *   Called by : GMEDIA                                           *
  19 C.    *                                                                *
  20 C.    *   Authors   : R.Brun, F.Bruyant                                *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25 #include "geant321/gcstak.inc"
  26 #include "geant321/gcvolu.inc"
  27 C.    ------------------------------------------------------------------
  28 *
  29 * *** Initialize first level in /GCVOLU/ and in JGPAR structure
  30 *
  31       NLEVEL      = 1
  32       LVOLUM(1)   = 1
  33       NAMES(1)    = IQ(JVOLUM+1)
  34       NUMBER(1)   = 1
  35       LINDEX(1)   = 1
  36       LINMX(1)    = 1
  37       GONLY(1)    = 1.
  38       JVO         = LQ(JVOLUM-1)
  39       NLEVMX      = IQ(LQ(JVOLUM)-1)
  40       NLDEV(1)    = NLEVMX
  41       IF (LQ(JVO).NE.0) NLDEV(1) = 1
  42 *
  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)
  46       LQ(JGPAR-1) = JVO +6
  47 *
  48       DO 29 I = 1,3
  49          GTRAN(I, 1) = 0.
  50          DO 19 J = 1,3
  51             K = (I-1)*3 +J
  52             GRMAT(K, 1) = 0.
  53    19    CONTINUE
  54          K = I*4 -3
  55          GRMAT(K, 1) = 1.
  56    29 CONTINUE
  57       GRMAT(10,1) = 0.
  58 *                                                             END GMEDIN
  59       END