1 |
* |
* |
2 |
* $Id: gpkey.inc,v 3.2 2002/12/05 10:17:42 pamela Exp $ |
* $Id: gpkey.inc,v 3.3 2005/06/21 02:42:15 cafagna Exp $ |
3 |
* |
* |
4 |
* $Log: gpkey.inc,v $ |
* $Log: gpkey.inc,v $ |
5 |
|
* Revision 3.3 2005/06/21 02:42:15 cafagna |
6 |
|
* Major modification to the geometry and to the random number chain |
7 |
|
* |
8 |
* Revision 3.2 2002/12/05 10:17:42 pamela |
* Revision 3.2 2002/12/05 10:17:42 pamela |
9 |
* Update CAS and CALO geometries and positions. Makefile updated as well |
* Update CAS and CALO geometries and positions. Makefile updated as well |
10 |
* |
* |
35 |
LOGICAL TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, |
LOGICAL TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, |
36 |
+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4, |
+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4, |
37 |
+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, |
+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, |
38 |
+ CALDIV,CALBLOCK,FLUKA, |
+ CALDIV,CALBLOCK,FLUKA,GPCALOR, |
39 |
+ ATMAXFD,ASTEMAX,ADEEMAX,AEPSIL,ASTMIN,HLONG, |
+ ATMAXFD,ASTEMAX,ADEEMAX,AEPSIL,ASTMIN,HLONG, |
40 |
+ BTMAXFD,BSTEMAX,BDEEMAX,BSTMIN,BEPSIL,NOCAPL,NOCASI, |
+ BTMAXFD,BSTEMAX,BDEEMAX,BSTMIN,BEPSIL,NOCAPL,NOCASI, |
41 |
+ NOCAAB |
+ NOCAAB |
54 |
COMMON /GPCKEY/TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, |
COMMON /GPCKEY/TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, |
55 |
+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL, |
+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL, |
56 |
+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, |
+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, |
57 |
+ CALDIV,CALBLOCK,FLUKA,ATMAXFD,ASTEMAX, |
+ CALDIV,CALBLOCK,FLUKA,GPCALOR,ATMAXFD,ASTEMAX, |
58 |
+ ADEEMAX,AEPSIL,ASTMIN,HLONG,BTMAXFD,BSTEMAX, |
+ ADEEMAX,AEPSIL,ASTMIN,HLONG,BTMAXFD,BSTEMAX, |
59 |
+ BDEEMAX,BSTMIN,BEPSIL,NOCAPL(44),NOCASI(9), |
+ BDEEMAX,BSTMIN,BEPSIL,NOCAPL(44),NOCASI(9), |
60 |
+ NOCAAB(22), |
+ NOCAAB(22), |