1 |
* |
2 |
*gppol.inc |
3 |
* |
4 |
*-- Author : Marialuigia Ambriola 16/05/2006 |
5 |
C |
6 |
C Common storing the Special tracking parameter for tracking media |
7 |
C polystyrene mix (not scintillator) |
8 |
C |
9 |
REAL CUTGAMPOL,CUTELEPOL,CUTNEUPOL,CUTHADPOL,CUTMUOPOL, |
10 |
+ BCUTEPOL,BCUTMPOL,DCUTMPOL,DCUTEPOL,PPCUTMPOL,PAIRPOL, |
11 |
+ COMPPOL,PHOTPOL,PFISPOL,DRAYPOL,ANNIPOL,BREMPOL, |
12 |
+ HADRPOL,MUNUPOL,DCAYPOL,LOSSPOL,MULSPOL,BIRK1POL, |
13 |
+ BIRK2POL,BIRK3POL,LABSPOL,SYNCPOL,STRAPOL |
14 |
* |
15 |
COMMON /GPCPOL/ CUTGAMPOL,CUTELEPOL,CUTNEUPOL,CUTHADPOL, |
16 |
+ CUTMUOPOL,BCUTEPOL,BCUTMPOL,DCUTMPOL,DCUTEPOL, |
17 |
+ PPCUTMPOL,PAIRPOL,COMPPOL,PHOTPOL,PFISPOL, |
18 |
+ DRAYPOL,ANNIPOL,BREMPOL,HADRPOL,MUNUPOL, |
19 |
+ DCAYPOL,LOSSPOL,MULSPOL,BIRK1POL,BIRK2POL, |
20 |
+ BIRK3POL,LABSPOL,SYNCWPOL,STRAPOL |