gpamela/gptof/gppol.F

*-- Author :    Marialuigia Ambriola   12/04/2006
      SUBROUTINE GPPOL
************************************************************************
*                                                                      *
* To define special tracking parameters for POLYSTYRENE                *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 12/04/2006 11.44                       *
*                                                                      *
************************************************************************
#include "gppol.inc"
*
      CUTGAMPOL = 0.00001
      CUTELEPOL = 0.00001
      CUTNEUPOL = 0.001
      CUTHADPOL = 0.001
c ml:
      BCUTEPOL=0.00001
      DCUTEPOL=0.00001
      CUTMUOPOL=0.01
      BCUTMPOL=0.00001
      DCUTMPOL=0.00001
      PPCUTMPOL=0.01
c end ml.
      PAIRPOL = 1
      COMPPOL = 1
      PHOTPOL = 1
      PFISPOL = 0
      DRAYPOL = 1
      ANNIPOL = 1
      BREMPOL = 1
      HADRPOL = 1
      MUNUPOL = 1
      DCAYPOL = 1
      LOSSPOL = 1
      MULSPOL = 2
      RETURN
      END

1	*-- Author : Marialuigia Ambriola 12/04/2006
2	SUBROUTINE GPPOL
3	************************************************************************
4	* *
5	* To define special tracking parameters for POLYSTYRENE *
6	* *
7	* Called by: GPDAT *
8	* Author: Marialuigia Ambriola, 12/04/2006 11.44 *
9	* *
10	************************************************************************
11	#include "gppol.inc"
12	*
13	CUTGAMPOL = 0.00001
14	CUTELEPOL = 0.00001
15	CUTNEUPOL = 0.001
16	CUTHADPOL = 0.001
17	c ml:
18	BCUTEPOL=0.00001
19	DCUTEPOL=0.00001
20	CUTMUOPOL=0.01
21	BCUTMPOL=0.00001
22	DCUTMPOL=0.00001
23	PPCUTMPOL=0.01
24	c end ml.
25	PAIRPOL = 1
26	COMPPOL = 1
27	PHOTPOL = 1
28	PFISPOL = 0
29	DRAYPOL = 1
30	ANNIPOL = 1
31	BREMPOL = 1
32	HADRPOL = 1
33	MUNUPOL = 1
34	DCAYPOL = 1
35	LOSSPOL = 1
36	MULSPOL = 2
37	RETURN
38	END
39