1 |
* |
* |
2 |
* $Id: gpcal.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $ |
* $Id: gpcal.inc,v 3.2 2003/12/17 11:32:48 pamela Exp $ |
3 |
* |
* |
4 |
* $Log: gpcal.inc,v $ |
* $Log: gpcal.inc,v $ |
5 |
|
* Revision 3.2 2003/12/17 11:32:48 pamela |
6 |
|
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation |
7 |
|
* |
8 |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
9 |
* First GPAMELA release on CVS |
* First GPAMELA release on CVS |
10 |
* |
* |
20 |
* |
* |
21 |
* Common with CWN variable for CASI |
* Common with CWN variable for CASI |
22 |
* |
* |
23 |
INTEGER NTHCAL,ICAPL,ICASI,ICAST |
INTEGER NTHCALI,NTHCAL,ICAPL,ICASI,ICAST |
24 |
REAL XINCAL,YINCAL,ZINCAL,ERELCAL |
REAL XINCAL,YINCAL,ZINCAL,ERELCAL |
25 |
C Ml: 14/03/2003 |
C Ml: 14/03/2003 |
26 |
INTEGER ICASTRIP,ICAPLANE,ICAMOD |
INTEGER ICASTRIP,ICAPLANE,ICAMOD |
27 |
REAL ENESTRIP |
REAL ENESTRIP |
28 |
C end Ml. 14/03/2003 |
C end Ml. 14/03/2003 |
29 |
COMMON /GPCCASI/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL), |
COMMON /GPCCAST/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL), |
30 |
+ XINCAL(NHMCAL),YINCAL(NHMCAL), |
+ XINCAL(NHMCAL),YINCAL(NHMCAL), |
31 |
+ ZINCAL(NHMCAL),ERELCAL(NHMCAL), |
+ ZINCAL(NHMCAL),ERELCAL(NHMCAL) |
32 |
C Ml: 14/03/2003 |
C Ml: 14/03/2003 |
33 |
+ ICASTRIP(NHMCAL),ICAPLANE(NHMCAL), |
COMMON /GPCCALI/NTHCALI,ICASTRIP(NHMCAL),ICAPLANE(NHMCAL), |
34 |
+ ICAMOD(NHMCAL),ENESTRIP(NHMCAL) |
+ ICAMOD(NHMCAL),ENESTRIP(NHMCAL) |
35 |
C end Ml 14/03/2003 |
C end Ml 14/03/2003 |
36 |
* |
* |