gpamela/gpcdes/gpcal.inc

*
* $Id: gpcal.inc,v 3.3 2005/06/21 02:42:07 cafagna Exp $
*
* $Log: gpcal.inc,v $
* Revision 3.3  2005/06/21 02:42:07  cafagna
* Major modification to the geometry and to the random number chain
*
* Revision 3.2  2003/12/17 11:32:48  pamela
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
*
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpcal.inc
*
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 22/10/99  16.31.02  by  Francesco Cafagna
*CMZ :  1.00/02 13/03/96  17.29.46  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for CASI
*
      INTEGER NTHCALI,NTHCAL,ICAPL,ICASI,ICAST
      REAL  XINCAL,YINCAL,ZINCAL,ERELCAL
C Ml: 14/03/2003
      INTEGER ICASTRIP,ICAPLANE,ICAMOD
      REAL ENESTRIP
C end Ml. 14/03/2003     
      COMMON /GPCCAST/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL),
     +                XINCAL(NHMCAL),YINCAL(NHMCAL),
     +                ZINCAL(NHMCAL),ERELCAL(NHMCAL)
C Ml: 14/03/2003
      COMMON /GPCCALI/NTHCALI,ICASTRIP(NHMCALI),ICAPLANE(NHMCALI),
     +                ICAMOD(NHMCALI),ENESTRIP(NHMCALI)
C end Ml 14/03/2003
*
1	cafagna	3.1	*
2	cafagna	3.4	* $Id: gpcal.inc,v 3.3 2005/06/21 02:42:07 cafagna Exp $
3	pamela	3.2	*
4			* $Log: gpcal.inc,v $
5	cafagna	3.4	* Revision 3.3 2005/06/21 02:42:07 cafagna
6			* Major modification to the geometry and to the random number chain
7			*
8	cafagna	3.3	* Revision 3.2 2003/12/17 11:32:48 pamela
9			* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
10			*
11	pamela	3.2	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
12			* First GPAMELA release on CVS
13	cafagna	3.1	*
14			*
15			*
16			* gpcal.inc
17			*
18			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
19			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
20			*CMZ : 1.02/00 22/10/99 16.31.02 by Francesco Cafagna
21			*CMZ : 1.00/02 13/03/96 17.29.46 by Francesco Cafagna
22			*-- Author : Francesco Cafagna 14/02/96
23			*
24			* Common with CWN variable for CASI
25			*
26	cafagna	3.3	INTEGER NTHCALI,NTHCAL,ICAPL,ICASI,ICAST
27	cafagna	3.1	REAL XINCAL,YINCAL,ZINCAL,ERELCAL
28	pamela	3.2	C Ml: 14/03/2003
29			INTEGER ICASTRIP,ICAPLANE,ICAMOD
30			REAL ENESTRIP
31			C end Ml. 14/03/2003
32	cafagna	3.3	COMMON /GPCCAST/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL),
33	cafagna	3.1	+ XINCAL(NHMCAL),YINCAL(NHMCAL),
34	cafagna	3.3	+ ZINCAL(NHMCAL),ERELCAL(NHMCAL)
35	pamela	3.2	C Ml: 14/03/2003
36	cafagna	3.4	COMMON /GPCCALI/NTHCALI,ICASTRIP(NHMCALI),ICAPLANE(NHMCALI),
37			+ ICAMOD(NHMCALI),ENESTRIP(NHMCALI)
38	pamela	3.2	C end Ml 14/03/2003
39	cafagna	3.1	*