gpamela/gpcal/gpw.F

*
* $Id: gpw.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
*
* $Log: gpw.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.33.53  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 GPW
************************************************************************
*                                                                      *
* To define special tracking parameters for Tungsten                   *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Francesco Cafagna, 04/04/96 17.41.17                         *
*                                                                      *
************************************************************************
#include "gpw.inc"
*
      CUTGAMW = 0.00001
      CUTELEW = 0.00001
      CUTNEUW = 0.001
      CUTHADW = 0.001
c ml:
      BCUTEW=0.00001
      DCUTEW=0.00001
      CUTMUOW=0.01
      BCUTMW=0.00001
      DCUTMW=0.00001
      PPCUTMW=0.01
c end ml.
      PAIRW = 1
      COMPW = 1
      PHOTW = 1
      PFISW = 0
      DRAYW = 1
      ANNIW = 1
      BREMW = 1
      HADRW = 1
      MUNUW = 1
      DCAYW = 1
      LOSSW = 1
      MULSW = 2
      RETURN
      END
1	cafagna	3.1	*
2	pamela	3.2	* $Id: gpw.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3			*
4			* $Log: gpw.F,v $
5			* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
10			*CMZ : 2.03/00 30/10/2000 10.33.53 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 GPW
17			************************************************************************
18			* *
19			* To define special tracking parameters for Tungsten *
20			* *
21			* Called by: GPDAT *
22			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
23			* *
24			************************************************************************
25			#include "gpw.inc"
26			*
27			CUTGAMW = 0.00001
28			CUTELEW = 0.00001
29			CUTNEUW = 0.001
30			CUTHADW = 0.001
31	pamela	3.2	c ml:
32			BCUTEW=0.00001
33			DCUTEW=0.00001
34			CUTMUOW=0.01
35			BCUTMW=0.00001
36			DCUTMW=0.00001
37			PPCUTMW=0.01
38			c end ml.
39	cafagna	3.1	PAIRW = 1
40			COMPW = 1
41			PHOTW = 1
42			PFISW = 0
43			DRAYW = 1
44			ANNIW = 1
45			BREMW = 1
46			HADRW = 1
47			MUNUW = 1
48			DCAYW = 1
49			LOSSW = 1
50	pamela	3.2	MULSW = 2
51	cafagna	3.1	RETURN
52			END