*
* $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