gpamela/gptrd/gpxe.F

*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 08/02/2002  17.54.28  by  Unknown
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  17.54.02  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/04/96
      SUBROUTINE GPXE
************************************************************************
*                                                                      *
* To define special tracking parameters for Xenon                      *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Francesco Cafagna, 04/04/96 17.41.17                         *
*                                                                      *
************************************************************************
#include "gpxe.inc"
*kinetic energy cuts in GeV:
      CUTGAMXE = 0.0001
      CUTELEXE = 0.0001
      CUTHADXE = 0.0001
      CUTNEUXE = 0.0001
      CUTMUOXE = 0.0001
c      BCUTEXE = CUTGAMXE
c      BCUTMXE = CUTGAMXE
      BCUTEXE = 0.001
      BCUTMXE = 0.001
      DCUTEXE = CUTELEXE
      DCUTMXE = CUTELEXE
      PPCUTMXE  = 0.01
*control of physics process:
*default:
c      PAIRXE = 1
c      COMPXE = 1
c      PHOTXE = 1
c      PFISXE = 0
c      ANNIXE = 1
c      BREMXE = 1
c      HADRXE = 1
c      MUNUXE = 1
c      DCAYXE = 1
C      MULSXE = 1
cc      BIRK1XE =
cc      BIRK2XE =
cc      BIRK3XE =
cc      LABSXE =
cc      SYNCXE =
*user:
*.
#if defined(GPAMELA_GARFIELD)
      LOSSXE = 0
      DRAYXE = 0
      MULSXE = 0
      PAIRXE = 0
      COMPXE = 0
      PHOTXE = 0
      PFISXE = 0
      ANNIXE = 0
      BREMXE = 0
      HADRXE = 0
      MUNUXE = 0
      DCAYXE = 0
*.
#endif
#if !defined(GPAMELA_GARFIELD)
      LOSSXE = 1
      DRAYXE = 1
      MULSXE = 1
      PAIRXE = 1
      COMPXE = 1
      PHOTXE = 1
      PFISXE = 0
      ANNIXE = 1
      BREMXE = 1
      HADRXE = 1
      MUNUXE = 1
      DCAYXE = 1
#endif
*
      RETURN
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 08/02/2002 17.54.28 by Unknown
7			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
8			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
9			*CMZ : 1.00/02 04/04/96 17.54.02 by Francesco Cafagna
10			*-- Author : Francesco Cafagna 04/04/96
11			SUBROUTINE GPXE
12			************************************************************************
13			* *
14			* To define special tracking parameters for Xenon *
15			* *
16			* Called by: GPDAT *
17			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
18			* *
19			************************************************************************
20			#include "gpxe.inc"
21			*kinetic energy cuts in GeV:
22			CUTGAMXE = 0.0001
23			CUTELEXE = 0.0001
24			CUTHADXE = 0.0001
25			CUTNEUXE = 0.0001
26			CUTMUOXE = 0.0001
27			c BCUTEXE = CUTGAMXE
28			c BCUTMXE = CUTGAMXE
29			BCUTEXE = 0.001
30			BCUTMXE = 0.001
31			DCUTEXE = CUTELEXE
32			DCUTMXE = CUTELEXE
33			PPCUTMXE = 0.01
34			*control of physics process:
35			*default:
36			c PAIRXE = 1
37			c COMPXE = 1
38			c PHOTXE = 1
39			c PFISXE = 0
40			c ANNIXE = 1
41			c BREMXE = 1
42			c HADRXE = 1
43			c MUNUXE = 1
44			c DCAYXE = 1
45			C MULSXE = 1
46			cc BIRK1XE =
47			cc BIRK2XE =
48			cc BIRK3XE =
49			cc LABSXE =
50			cc SYNCXE =
51			*user:
52			*.
53			#if defined(GPAMELA_GARFIELD)
54			LOSSXE = 0
55			DRAYXE = 0
56			MULSXE = 0
57			PAIRXE = 0
58			COMPXE = 0
59			PHOTXE = 0
60			PFISXE = 0
61			ANNIXE = 0
62			BREMXE = 0
63			HADRXE = 0
64			MUNUXE = 0
65			DCAYXE = 0
66			*.
67			#endif
68			#if !defined(GPAMELA_GARFIELD)
69			LOSSXE = 1
70			DRAYXE = 1
71			MULSXE = 1
72			PAIRXE = 1
73			COMPXE = 1
74			PHOTXE = 1
75			PFISXE = 0
76			ANNIXE = 1
77			BREMXE = 1
78			HADRXE = 1
79			MUNUXE = 1
80			DCAYXE = 1
81			#endif
82			*
83			RETURN
84			END