gpamela/gptof/gpmyl.F

*-- Author :    Marialuigia Ambriola   12/04/2006
      SUBROUTINE GPMYL
************************************************************************
*                                                                      *
* To define special tracking parameters for Mylar                      *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 12/04/2006 11.44                       *
*                                                                      *
************************************************************************
#include "gpmyl.inc"
*
      CUTGAMMYL = 0.0001
      CUTELEMYL = 0.0001
      CUTNEUMYL = 0.0001
      CUTHADMYL = 0.0001
c ml:
      BCUTEMYL=0.001
      DCUTEMYL=0.0001
      CUTMUOMYL=0.0001
      BCUTMMYL=0.001
      DCUTMMYL=0.0001
      PPCUTMMYL=0.01
c end ml.
      PAIRMYL = 1
      COMPMYL = 1
      PHOTMYL = 1
      PFISMYL = 0
      DRAYMYL = 1
      ANNIMYL = 1
      BREMMYL = 1
      HADRMYL = 4
      MUNUMYL = 1
      DCAYMYL = 1
      LOSSMYL = 1
      MULSMYL = 1
      RETURN
      END

1	*-- Author : Marialuigia Ambriola 12/04/2006
2	SUBROUTINE GPMYL
3	************************************************************************
4	* *
5	* To define special tracking parameters for Mylar *
6	* *
7	* Called by: GPDAT *
8	* Author: Marialuigia Ambriola, 12/04/2006 11.44 *
9	* *
10	************************************************************************
11	#include "gpmyl.inc"
12	*
13	CUTGAMMYL = 0.0001
14	CUTELEMYL = 0.0001
15	CUTNEUMYL = 0.0001
16	CUTHADMYL = 0.0001
17	c ml:
18	BCUTEMYL=0.001
19	DCUTEMYL=0.0001
20	CUTMUOMYL=0.0001
21	BCUTMMYL=0.001
22	DCUTMMYL=0.0001
23	PPCUTMMYL=0.01
24	c end ml.
25	PAIRMYL = 1
26	COMPMYL = 1
27	PHOTMYL = 1
28	PFISMYL = 0
29	DRAYMYL = 1
30	ANNIMYL = 1
31	BREMMYL = 1
32	HADRMYL = 4
33	MUNUMYL = 1
34	DCAYMYL = 1
35	LOSSMYL = 1
36	MULSMYL = 1
37	RETURN
38	END
39