gpamela/gpnd/gpch2.F

*-- Author :    Marialuigia Ambriola   27/10/2006
      SUBROUTINE GPCH2
************************************************************************
*                                                                      *
* To define special tracking parameters for polyethylene               *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 27/10/2006 20.36                       *
*                                                                      *
************************************************************************
#include "gpch2.inc"
*
      CUTGAMCH2 = 0.0001
      CUTELECH2 = 0.0001
      CUTNEUCH2 = 0.0001
      CUTHADCH2 = 0.0001
c ml:
      BCUTECH2=0.001
      DCUTECH2=0.0001
      CUTMUOCH2=0.0001
      BCUTMCH2=0.001
      DCUTMCH2=0.0001
      PPCUTMCH2=0.01
c end ml.
      PAIRCH2 = 1
      COMPCH2 = 1
      PHOTCH2 = 1
      PFISCH2 = 0
      DRAYCH2 = 1
      ANNICH2 = 1
      BREMCH2 = 1
      HADRCH2 = 4
      MUNUCH2 = 1
      DCAYCH2 = 1
      LOSSCH2 = 1
      MULSCH2 = 1
      RETURN
      END

1	*-- Author : Marialuigia Ambriola 27/10/2006
2	SUBROUTINE GPCH2
3	************************************************************************
4	* *
5	* To define special tracking parameters for polyethylene *
6	* *
7	* Called by: GPDAT *
8	* Author: Marialuigia Ambriola, 27/10/2006 20.36 *
9	* *
10	************************************************************************
11	#include "gpch2.inc"
12	*
13	CUTGAMCH2 = 0.0001
14	CUTELECH2 = 0.0001
15	CUTNEUCH2 = 0.0001
16	CUTHADCH2 = 0.0001
17	c ml:
18	BCUTECH2=0.001
19	DCUTECH2=0.0001
20	CUTMUOCH2=0.0001
21	BCUTMCH2=0.001
22	DCUTMCH2=0.0001
23	PPCUTMCH2=0.01
24	c end ml.
25	PAIRCH2 = 1
26	COMPCH2 = 1
27	PHOTCH2 = 1
28	PFISCH2 = 0
29	DRAYCH2 = 1
30	ANNICH2 = 1
31	BREMCH2 = 1
32	HADRCH2 = 4
33	MUNUCH2 = 1
34	DCAYCH2 = 1
35	LOSSCH2 = 1
36	MULSCH2 = 1
37	RETURN
38	END
39