1 |
* |
* |
2 |
* $Id$ |
* $Id: gpmed.inc,v 3.2 2002/12/05 10:17:42 pamela Exp $ |
3 |
|
* |
4 |
|
* $Log: gpmed.inc,v $ |
5 |
|
* Revision 3.2 2002/12/05 10:17:42 pamela |
6 |
|
* Update CAS and CALO geometries and positions. Makefile updated as well |
7 |
|
* |
8 |
|
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
9 |
|
* First GPAMELA release on CVS |
10 |
* |
* |
|
* $Log$ |
|
11 |
* |
* |
12 |
* |
* |
13 |
* gpmed.inc |
* gpmed.inc |
14 |
* |
* |
15 |
|
* 03/10/2002 11.15.52 by Jens Lund |
16 |
*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 |
17 |
*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 |
18 |
*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 |
28 |
*EM: |
*EM: |
29 |
INTEGER MW2,MCER,MG10C |
INTEGER MW2,MCER,MG10C |
30 |
*END EM. |
*END EM. |
31 |
|
*JeL: |
32 |
|
INTEGER MPLAS |
33 |
|
*END JeL. |
34 |
|
INTEGER MMYL |
35 |
REAL FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP |
REAL FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP |
36 |
COMMON /GPCMED/ MN2,MSCIN,MAER,MXE,MKAP,MTRAD,MMAG,MROA, |
COMMON /GPCMED/ MN2,MSCIN,MAER,MXE,MKAP,MTRAD,MMAG,MROA, |
37 |
+ MCF,MSIC,MSIT,MG10,MCE,MW,MAL,ISVOLGP, |
+ MCF,MSIC,MSIT,MG10,MCE,MW,MAL,ISVOLGP, |
38 |
+ FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP, |
+ FIELDMGP,TMAXFDGP,STEMAXGP,DEEMAXGP,EPSILGP,STMINGP, |
39 |
*EM: |
*EM: |
40 |
+ MW2,MCER,MG10C |
+ MW2,MCER,MG10C, |
41 |
*END EM. |
*END EM. |
42 |
|
*JeL: |
43 |
|
+ MPLAS,MMYL |
44 |
|
*END JeL. |
45 |
C |
C |