| 1 |
* |
| 2 |
* $Id: gpcal.inc,v 3.3 2005/06/21 02:42:07 cafagna Exp $ |
| 3 |
* |
| 4 |
* $Log: gpcal.inc,v $ |
| 5 |
* Revision 3.3 2005/06/21 02:42:07 cafagna |
| 6 |
* Major modification to the geometry and to the random number chain |
| 7 |
* |
| 8 |
* 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 |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
| 12 |
* First GPAMELA release on CVS |
| 13 |
* |
| 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 |
INTEGER NTHCALI,NTHCAL,ICAPL,ICASI,ICAST |
| 27 |
REAL XINCAL,YINCAL,ZINCAL,ERELCAL |
| 28 |
C Ml: 14/03/2003 |
| 29 |
INTEGER ICASTRIP,ICAPLANE,ICAMOD |
| 30 |
REAL ENESTRIP |
| 31 |
C end Ml. 14/03/2003 |
| 32 |
COMMON /GPCCAST/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL), |
| 33 |
+ XINCAL(NHMCAL),YINCAL(NHMCAL), |
| 34 |
+ ZINCAL(NHMCAL),ERELCAL(NHMCAL) |
| 35 |
C Ml: 14/03/2003 |
| 36 |
COMMON /GPCCALI/NTHCALI,ICASTRIP(NHMCALI),ICAPLANE(NHMCALI), |
| 37 |
+ ICAMOD(NHMCALI),ENESTRIP(NHMCALI) |
| 38 |
C end Ml 14/03/2003 |
| 39 |
* |
Parent Directory
| 
Revision Log