*-- Author :    Marialuigia Ambriola   12/10/2006
      SUBROUTINE GPCAD
************************************************************************
*                                                                      *
* To define special tracking parameters for Cadmium                    *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 12/10/2006 20.40                       *
*                                                                      *
************************************************************************
#include "gpcad.inc"
*
      CUTGAMCAD = 0.0001
      CUTELECAD = 0.0001
      CUTNEUCAD = 0.0001
      CUTHADCAD = 0.0001
c ml:
      BCUTECAD=0.001
      DCUTECAD=0.0001
      CUTMUOCAD=0.0001
      BCUTMCAD=0.001
      DCUTMCAD=0.0001
      PPCUTMCAD=0.01
c end ml.
      PAIRCAD = 1
      COMPCAD = 1
      PHOTCAD = 1
      PFISCAD = 0
      DRAYCAD = 1
      ANNICAD = 1
      BREMCAD = 1
      HADRCAD = 4
      MUNUCAD = 1
      DCAYCAD = 1
      LOSSCAD = 1
      MULSCAD = 1
      RETURN
      END