gpamela/gpcal/gpw2.F

*
* $Id: gpw2.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
*
* $Log: gpw2.F,v $
* Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
* First GPAMELA release on CVS
*
*
*CMZ :  3.00/00 04/12/2000  14.13.29  by  Emiliano Mocchiutti
*CMZ :  2.03/00 30/10/2000  10.57.26  by  Francesco Cafagna
*CMZ :  2.02/00 09/10/2000  15.45.18  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  17.54.01  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/04/96
      SUBROUTINE GPW2
************************************************************************
*                                                                      *
* To define special tracking parameters for Tungsten mixture           *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Francesco Cafagna, 04/04/96 17.41.17                         *
*                                                                      *
************************************************************************
#include "gpw2.inc"
*
      CUTGAMW2 = 0.00001
      CUTELEW2 = 0.00001
      CUTNEUW2 = 0.001
      CUTHADW2 = 0.001
c ml:
      BCUTEW2=0.00001
      DCUTEW2=0.00001
      CUTMUOW2=0.01
      BCUTMW2=0.00001
      DCUTMW2=0.00001
      PPCUTMW2=0.01
c end ml.
      PAIRW2 = 1
      COMPW2 = 1
      PHOTW2 = 1
      PFISW2 = 0
      DRAYW2 = 1
      ANNIW2 = 1
      BREMW2 = 1
      HADRW2 = 1
      MUNUW2 = 1
      DCAYW2 = 1
      LOSSW2 = 1
      MULSW2 = 2
      RETURN
      END

1	*
2	* $Id: gpw2.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3	*
4	* $Log: gpw2.F,v $
5	* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
6	* First GPAMELA release on CVS
7	*
8	*
9	*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
10	*CMZ : 2.03/00 30/10/2000 10.57.26 by Francesco Cafagna
11	*CMZ : 2.02/00 09/10/2000 15.45.18 by Francesco Cafagna
12	*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
13	*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
14	*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
15	*-- Author : Francesco Cafagna 04/04/96
16	SUBROUTINE GPW2
17	************************************************************************
18	* *
19	* To define special tracking parameters for Tungsten mixture *
20	* *
21	* Called by: GPDAT *
22	* Author: Francesco Cafagna, 04/04/96 17.41.17 *
23	* *
24	************************************************************************
25	#include "gpw2.inc"
26	*
27	CUTGAMW2 = 0.00001
28	CUTELEW2 = 0.00001
29	CUTNEUW2 = 0.001
30	CUTHADW2 = 0.001
31	c ml:
32	BCUTEW2=0.00001
33	DCUTEW2=0.00001
34	CUTMUOW2=0.01
35	BCUTMW2=0.00001
36	DCUTMW2=0.00001
37	PPCUTMW2=0.01
38	c end ml.
39	PAIRW2 = 1
40	COMPW2 = 1
41	PHOTW2 = 1
42	PFISW2 = 0
43	DRAYW2 = 1
44	ANNIW2 = 1
45	BREMW2 = 1
46	HADRW2 = 1
47	MUNUW2 = 1
48	DCAYW2 = 1
49	LOSSW2 = 1
50	MULSW2 = 2
51	RETURN
52	END
53