GEANT321/ggeom/gfcvol.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:48  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.28  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GFCVOL
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *    ROUTINE TO RELOAD THE RELEVANT CONTENTS OF THE COMMON       *
  17 C.    *    BLOCK /GCVOLU/ FROM THE COMMON /GCVOL2/                     *
  18 C.    *    THE ROUTINE ASSUMES THAT THE CONTENTS WERE STORED USING     *
  19 C.    *    THE ROUTINE GSCVOL.                                         *
  20 C.    *                                                                *
  21 C.    *    ==>Called by : GDRAW, GDRVOL, GINVOL, GMEDIA, GTMEDI        *
  22 C.    *         Authors : A.McPherson, F.Bruyant                       *
  23 C.    *                                                                *
  24 C.    ******************************************************************
  25 C.
  26 #include "geant321/gcbank.inc"
  27 #include "geant321/gcvolu.inc"
  28 #include "geant321/gcvol2.inc"
  29 C.
  30 C.          ----------------------------------------
  31 C.
  32       NLEVEL = NLEVE2
  33       IF (NLEVEL.LE.0) GO TO 99
  34 *
  35       INFROM = INFRO2
  36       DO 40 I = 1,NLEVEL
  37 *
  38          NAMES(I)  = NAMES2(I)
  39          NUMBER(I) = NUMB2(I)
  40          LVOLUM(I) = LVOL2(I)
  41          LINDEX(I) = LIND2(I)
  42          GONLY(I)  = GONLY2(I)
  43          NLDEV(I)  = NLDEV2(I)
  44          LINMX(I)  = LINMX2(I)
  45 *
  46          DO 10 J = 1,3
  47             GTRAN(J,I) = GTRAN2(J,I)
  48    10    CONTINUE
  49 *
  50          DO 20 J = 1,10
  51             GRMAT(J,I) = GRMAT2(J,I)
  52    20    CONTINUE
  53 *
  54          IQ(JGPAR+I) = IQ(JGPAR2+I)
  55          LQ(JGPAR-I) = LQ(JGPAR2-I)
  56 *
  57    40 CONTINUE
  58 *                                                             END GFCVOL
  59    99 END