1 |
* |
2 |
* $Id: gphit.inc,v 3.2 2005/06/21 02:42:14 cafagna Exp $ |
3 |
* |
4 |
* $Log: gphit.inc,v $ |
5 |
* Revision 3.2 2005/06/21 02:42:14 cafagna |
6 |
* Major modification to the geometry and to the random number chain |
7 |
* |
8 |
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
9 |
* First GPAMELA release on CVS |
10 |
* |
11 |
* |
12 |
* |
13 |
* gphit.inc |
14 |
* |
15 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
16 |
*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna |
17 |
*CMZ : 1.02/00 20/03/97 16.04.05 by Francesco Cafagna |
18 |
*CMZ : 1.00/02 23/02/96 15.20.54 by Francesco Cafagna |
19 |
*-- Author : Francesco Cafagna 13/02/96 |
20 |
* |
21 |
* Common block with the HIT definition for each detector |
22 |
* |
23 |
#include "gpphit.inc" |
24 |
CHARACTER*4 CHTOF,CHTRD,CHCAT,CHCAS,CHSPE,CHCAL,CHCALI,CHND |
25 |
INTEGER NBHTOF,NBHTRD,NBHCAT,NBHCAS,NBHSPE, |
26 |
+ NBHCAL,NBHND |
27 |
REAL OHTOF,FHTOF,OHTRD,FHTRD,OHCAT, |
28 |
+ FHCAT,OHCAS,FHCAS,OHSPE,FHSPE,OHCAL,FHCAL, |
29 |
+ OHCALI,FHCALI,OHND,FHND |
30 |
* |
31 |
COMMON /GPCHIT/ CHTOF(NHTOF),CHTRD(NHTRD), |
32 |
+ CHCAT(NHCAT),CHCAS(NHCAS),CHSPE(NHSPE), |
33 |
+ CHCAL(NHCAL),CHCALI(NHCALI),CHND(NHND), |
34 |
+ NBHTOF(NHTOF),NBHTRD(NHTRD), |
35 |
+ NBHCAT(NHCAT),NBHCAS(NHCAS),NBHSPE(NHSPE), |
36 |
+ NBHCAL(NHCAL),NBHND(NHND), |
37 |
+ OHTOF(NHTOF),FHTOF(NHTOF),OHTRD(NHTRD), |
38 |
+ FHTRD(NHTRD), |
39 |
+ OHCAT(NHCAT),FHCAT(NHCAT),OHCAS(NHCAS), |
40 |
+ FHCAS(NHCAS),OHSPE(NHSPE),FHSPE(NHSPE), |
41 |
+ OHCAL(NHCAL),FHCAL(NHCAL),OHCALI(NHCALI), |
42 |
+ FHCALI(NHCALI),OHND(NHND),FHND(NHND) |
43 |
* |