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.00001
      CUTELEMYL = 0.00001
      CUTNEUMYL = 0.001
      CUTHADMYL = 0.001
c ml:
      BCUTEMYL=0.00001
      DCUTEMYL=0.00001
      CUTMUOMYL=0.01
      BCUTMMYL=0.00001
      DCUTMMYL=0.00001
      PPCUTMMYL=0.01
c end ml.
      PAIRMYL = 1
      COMPMYL = 1
      PHOTMYL = 1
      PFISMYL = 0
      DRAYMYL = 1
      ANNIMYL = 1
      BREMMYL = 1
      HADRMYL = 1
      MUNUMYL = 1
      DCAYMYL = 1
      LOSSMYL = 1
      MULSMYL = 2
      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.00001
14	CUTELEMYL = 0.00001
15	CUTNEUMYL = 0.001
16	CUTHADMYL = 0.001
17	c ml:
18	BCUTEMYL=0.00001
19	DCUTEMYL=0.00001
20	CUTMUOMYL=0.01
21	BCUTMMYL=0.00001
22	DCUTMMYL=0.00001
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 = 1
33	MUNUMYL = 1
34	DCAYMYL = 1
35	LOSSMYL = 1
36	MULSMYL = 2
37	RETURN
38	END
39