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