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	*
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