1 |
* |
* |
2 |
* $Id$ |
* $Id: gpmed.inc,v 3.4 2006/05/18 10:52:32 pam-ba Exp $ |
3 |
|
* |
4 |
|
* $Log: gpmed.inc,v $ |
5 |
|
* Revision 3.4 2006/05/18 10:52:32 pam-ba |
6 |
|
* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added |
7 |
|
* |
8 |
|
* Revision 3.3 2006/05/02 11:46:13 pam-ba |
9 |
|
* TOF geometry and position updated and a new material, the mylar, added |
10 |
|
* |
11 |
|
* Revision 3.2 2002/12/05 10:17:42 pamela |
12 |
|
* Update CAS and CALO geometries and positions. Makefile updated as well |
13 |
|
* |
14 |
|
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
15 |
|
* First GPAMELA release on CVS |
16 |
* |
* |
|
* $Log$ |
|
17 |
* |
* |
18 |
* |
* |
19 |
* gpmed.inc |
* gpmed.inc |
20 |
* |
* |
21 |
|
* 03/10/2002 11.15.52 by Jens Lund |
22 |
*CMZ : 3.00/00 20/03/2001 17.31.38 by Marialuigia Ambriola |
*CMZ : 3.00/00 20/03/2001 17.31.38 by Marialuigia Ambriola |
23 |
*CMZ : 2.02/00 09/10/2000 15.33.16 by Francesco Cafagna |
*CMZ : 2.02/00 09/10/2000 15.33.16 by Francesco Cafagna |
24 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
34 |
*EM: |
*EM: |
35 |
INTEGER MW2,MCER,MG10C |
INTEGER MW2,MCER,MG10C |
36 |
*END EM. |
*END EM. |
37 |
|
*JeL: |
38 |
|
INTEGER MPLAS |
39 |
|
*END JeL. |
40 |
|
INTEGER MMYL,MPOL,MCAD |
41 |
REAL FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP |
REAL FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP |
42 |
COMMON /GPCMED/ MN2,MSCIN,MAER,MXE,MKAP,MTRAD,MMAG,MROA, |
COMMON /GPCMED/ MN2,MSCIN,MAER,MXE,MKAP,MTRAD,MMAG,MROA, |
43 |
+ MCF,MSIC,MSIT,MG10,MCE,MW,MAL,ISVOLGP, |
+ MCF,MSIC,MSIT,MG10,MCE,MW,MAL,ISVOLGP, |
44 |
+ FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP, |
+ FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP, |
45 |
*EM: |
*EM: |
46 |
+ MW2,MCER,MG10C |
+ MW2,MCER,MG10C, |
47 |
*END EM. |
*END EM. |
48 |
|
*JeL: |
49 |
|
+ MPLAS,MMYL,MPOL,MCAD |
50 |
|
*END JeL. |
51 |
C |
C |