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	cafagna	1.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