gpamela/gpnd/gphe3.F

*-- Author :    Marialuigia Ambriola   27/10/2006
      SUBROUTINE GPHE3
************************************************************************
*                                                                      *
* To define special tracking parameters for He3                        *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 27/10/2006 20.33                       *
*                                                                      *
************************************************************************
#include "gphe3.inc"
*
      CUTGAMHE3 = 0.0001
      CUTELEHE3 = 0.0001
      CUTNEUHE3 = 0.0001
      CUTHADHE3 = 0.0001
c ml:
      BCUTEHE3=0.001
      DCUTEHE3=0.0001
      CUTMUOHE3=0.0001
      BCUTMHE3=0.001
      DCUTMHE3=0.0001
      PPCUTMHE3=0.01
c end ml.
      PAIRHE3 = 1
      COMPHE3 = 1
      PHOTHE3 = 1
      PFISHE3 = 0
      DRAYHE3 = 1
      ANNIHE3 = 1
      BREMHE3 = 1
      HADRHE3 = 4
      MUNUHE3 = 1
      DCAYHE3 = 1
      LOSSHE3 = 1
      MULSHE3 = 1
      RETURN
      END

1	*-- Author : Marialuigia Ambriola 27/10/2006
2	SUBROUTINE GPHE3
3	************************************************************************
4	* *
5	* To define special tracking parameters for He3 *
6	* *
7	* Called by: GPDAT *
8	* Author: Marialuigia Ambriola, 27/10/2006 20.33 *
9	* *
10	************************************************************************
11	#include "gphe3.inc"
12	*
13	CUTGAMHE3 = 0.0001
14	CUTELEHE3 = 0.0001
15	CUTNEUHE3 = 0.0001
16	CUTHADHE3 = 0.0001
17	c ml:
18	BCUTEHE3=0.001
19	DCUTEHE3=0.0001
20	CUTMUOHE3=0.0001
21	BCUTMHE3=0.001
22	DCUTMHE3=0.0001
23	PPCUTMHE3=0.01
24	c end ml.
25	PAIRHE3 = 1
26	COMPHE3 = 1
27	PHOTHE3 = 1
28	PFISHE3 = 0
29	DRAYHE3 = 1
30	ANNIHE3 = 1
31	BREMHE3 = 1
32	HADRHE3 = 4
33	MUNUHE3 = 1
34	DCAYHE3 = 1
35	LOSSHE3 = 1
36	MULSHE3 = 1
37	RETURN
38	END
39