gpamela/gpcal/gpw2.F

*
* $Id$
*
* $Log$
*
*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
      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	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
7			*CMZ : 2.03/00 30/10/2000 10.57.26 by Francesco Cafagna
8			*CMZ : 2.02/00 09/10/2000 15.45.18 by Francesco Cafagna
9			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
10			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
11			*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
12			*-- Author : Francesco Cafagna 04/04/96
13			SUBROUTINE GPW2
14			************************************************************************
15			* *
16			* To define special tracking parameters for Tungsten mixture *
17			* *
18			* Called by: GPDAT *
19			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
20			* *
21			************************************************************************
22			#include "gpw2.inc"
23			*
24			CUTGAMW2 = 0.00001
25			CUTELEW2 = 0.00001
26			CUTNEUW2 = 0.001
27			CUTHADW2 = 0.001
28			PAIRW2 = 1
29			COMPW2 = 1
30			PHOTW2 = 1
31			PFISW2 = 0
32			DRAYW2 = 1
33			ANNIW2 = 1
34			BREMW2 = 1
35			HADRW2 = 1
36			MUNUW2 = 1
37			DCAYW2 = 1
38			LOSSW2 = 1
39			MULSW2 = 2
40			RETURN
41			END
42