gpamela/gpcal/gpw.F

*
* $Id$
*
* $Log$
*
*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
      PAIRW = 1
      COMPW = 1
      PHOTW = 1
      PFISW = 0
      DRAYW = 1
      ANNIW = 1
      BREMW = 1
      HADRW = 1
      MUNUW = 1
      DCAYW = 1
      LOSSW = 1
      MULSW = 3
      RETURN
      END
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.33.53 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 GPW
14	************************************************************************
15	* *
16	* To define special tracking parameters for Tungsten *
17	* *
18	* Called by: GPDAT *
19	* Author: Francesco Cafagna, 04/04/96 17.41.17 *
20	* *
21	************************************************************************
22	#include "gpw.inc"
23	*
24	CUTGAMW = 0.00001
25	CUTELEW = 0.00001
26	CUTNEUW = 0.001
27	CUTHADW = 0.001
28	PAIRW = 1
29	COMPW = 1
30	PHOTW = 1
31	PFISW = 0
32	DRAYW = 1
33	ANNIW = 1
34	BREMW = 1
35	HADRW = 1
36	MUNUW = 1
37	DCAYW = 1
38	LOSSW = 1
39	MULSW = 3
40	RETURN
41	END