gpamela/gpnd/gphend.F

*
* $Id: gpce.F,v 3.2 2003/12/17 11:32:48 pamela Exp $
*
* $Log: gpce.F,v $
* Revision 3.2  2003/12/17 11:32:48  pamela
* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
*
* 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.46.27  by  Francesco Cafagna
*CMZ :  2.02/00 09/10/2000  15.45.18  by  Francesco Cafagna
*-- Author :
      SUBROUTINE GPCE
************************************************************************
*                                                                      *
* To define special tracking parameters for Kaolinite                  *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Emiliano Mocchiutti, 09/10/00 15.28.17                       *
*                                                                      *
************************************************************************
#include "gpce.inc"
*
      CUTGAMCE = 0.00001
      CUTELECE = 0.00001
      CUTNEUCE = 0.001
      CUTHADCE = 0.001
c ml:
      BCUTECE=0.00001
      DCUTECE=0.00001
      CUTMUOCE=0.01
      BCUTMCE=0.00001
      DCUTMCE=0.00001
      PPCUTMCE=0.01
c end ml.
      PAIRCE = 1
      COMPCE = 1
      PHOTCE = 1
      PFISCE = 0
      DRAYCE = 1
      ANNICE = 1
      BREMCE = 1
      HADRCE = 1
      MUNUCE = 1
      DCAYCE = 1
      LOSSCE = 1
      MULSCE = 2
      RETURN
      END
1	*
2	* $Id: gpce.F,v 3.2 2003/12/17 11:32:48 pamela Exp $
3	*
4	* $Log: gpce.F,v $
5	* Revision 3.2 2003/12/17 11:32:48 pamela
6	* CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
7	*
8	* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
9	* First GPAMELA release on CVS
10	*
11	*
12	*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
13	*CMZ : 2.03/00 30/10/2000 10.46.27 by Francesco Cafagna
14	*CMZ : 2.02/00 09/10/2000 15.45.18 by Francesco Cafagna
15	*-- Author :
16	SUBROUTINE GPCE
17	************************************************************************
18	* *
19	* To define special tracking parameters for Kaolinite *
20	* *
21	* Called by: GPDAT *
22	* Author: Emiliano Mocchiutti, 09/10/00 15.28.17 *
23	* *
24	************************************************************************
25	#include "gpce.inc"
26	*
27	CUTGAMCE = 0.00001
28	CUTELECE = 0.00001
29	CUTNEUCE = 0.001
30	CUTHADCE = 0.001
31	c ml:
32	BCUTECE=0.00001
33	DCUTECE=0.00001
34	CUTMUOCE=0.01
35	BCUTMCE=0.00001
36	DCUTMCE=0.00001
37	PPCUTMCE=0.01
38	c end ml.
39	PAIRCE = 1
40	COMPCE = 1
41	PHOTCE = 1
42	PFISCE = 0
43	DRAYCE = 1
44	ANNICE = 1
45	BREMCE = 1
46	HADRCE = 1
47	MUNUCE = 1
48	DCAYCE = 1
49	LOSSCE = 1
50	MULSCE = 2
51	RETURN
52	END