[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gscvol.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:55  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.30  by  S.Giani
*-- Author :
      SUBROUTINE GSCVOL
C.
C.    ******************************************************************
C.    *                                                                *
C.    *    ROUTINE TO STORE THE RELEVANT CONTENTS OF THE COMMON BLOCK  *
C.    *    /GCVOLU/ IN THE COMMON /GCVOL2/                             *
C.    *    THE COMMON BLOCK CAN BE RELOADED FROM ARRAY BY THE ROUTINE  *
C.    *    GFCVOL.                                                     *
C.    *                                                                *
C.    *    ==>Called by : GDRAW,GDRVOL,GINVOL,GMEDIA,GTMEDI            *
C.    *         Authors : R.Brun, F.Bruyant  *********                 *
C.    *                                                                *
C.    ******************************************************************
C.
#include "geant321/gcbank.inc"
#include "geant321/gcvolu.inc"
#include "geant321/gcvol2.inc"
C.
C.          ----------------------------------------
C.
      NLEVE2 = NLEVEL
      IF (NLEVE2.LE.0) GO TO 99
*
      NLEVMX=IQ(LQ(JVOLUM)-1)
      IF (JGPAR2.EQ.0) THEN
         CALL MZBOOK (IXCONS, JGPAR2, JGPAR2, 1,'GPA2',
     +                                NLEVMX+1, 0, NLEVMX+1, 2, 0)
      ENDIF
*
      INFRO2 = INFROM
      IF(NLEVEL+1.GT.IQ(JGPAR2-1)) THEN
         CALL MZPUSH(IXCONS,JGPAR2,NLEVEL+1-IQ(JGPAR2-1),
     +                             NLEVEL+1-IQ(JGPAR2-1),' ')
      ENDIF
      DO 40 I = 1,NLEVEL
*
         NAMES2(I) = NAMES(I)
         NUMB2(I)  = NUMBER(I)
         LVOL2(I)  = LVOLUM(I)
         LIND2(I)  = LINDEX(I)
         GONLY2(I) = GONLY(I)
         NLDEV2(I) = NLDEV(I)
         LINMX2(I) = LINMX(I)
*
         DO 10 J = 1,3
            GTRAN2(J,I) = GTRAN(J,I)
   10    CONTINUE
*
         DO 20 J = 1,10
            GRMAT2(J,I) = GRMAT(J,I)
   20    CONTINUE
*
         IQ(JGPAR2+I) = IQ(JGPAR+I)
         LQ(JGPAR2-I) = LQ(JGPAR-I)
*
   40 CONTINUE
*                                                             END GSCVOL
   99 END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:55 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.30 by S.Giani
	11	*-- Author :
	12	SUBROUTINE GSCVOL
	13	C.
	14	C. ******************************************************************
	15	C. * *
	16	C. * ROUTINE TO STORE THE RELEVANT CONTENTS OF THE COMMON BLOCK *
	17	C. * /GCVOLU/ IN THE COMMON /GCVOL2/ *
	18	C. * THE COMMON BLOCK CAN BE RELOADED FROM ARRAY BY THE ROUTINE *
	19	C. * GFCVOL. *
	20	C. * *
	21	C. * ==>Called by : GDRAW,GDRVOL,GINVOL,GMEDIA,GTMEDI *
	22	C. * Authors : R.Brun, 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	NLEVE2 = NLEVEL
	33	IF (NLEVE2.LE.0) GO TO 99
	34	*
	35	NLEVMX=IQ(LQ(JVOLUM)-1)
	36	IF (JGPAR2.EQ.0) THEN
	37	CALL MZBOOK (IXCONS, JGPAR2, JGPAR2, 1,'GPA2',
	38	+ NLEVMX+1, 0, NLEVMX+1, 2, 0)
	39	ENDIF
	40	*
	41	INFRO2 = INFROM
	42	IF(NLEVEL+1.GT.IQ(JGPAR2-1)) THEN
	43	CALL MZPUSH(IXCONS,JGPAR2,NLEVEL+1-IQ(JGPAR2-1),
	44	+ NLEVEL+1-IQ(JGPAR2-1),' ')
	45	ENDIF
	46	DO 40 I = 1,NLEVEL
	47	*
	48	NAMES2(I) = NAMES(I)
	49	NUMB2(I) = NUMBER(I)
	50	LVOL2(I) = LVOLUM(I)
	51	LIND2(I) = LINDEX(I)
	52	GONLY2(I) = GONLY(I)
	53	NLDEV2(I) = NLDEV(I)
	54	LINMX2(I) = LINMX(I)
	55	*
	56	DO 10 J = 1,3
	57	GTRAN2(J,I) = GTRAN(J,I)
	58	10 CONTINUE
	59	*
	60	DO 20 J = 1,10
	61	GRMAT2(J,I) = GRMAT(J,I)
	62	20 CONTINUE
	63	*
	64	IQ(JGPAR2+I) = IQ(JGPAR+I)
65	LQ(JGPAR2-I) = LQ(JGPAR-I)
66	*
67	40 CONTINUE
68	* END GSCVOL
69	99 END