*-- 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.00001
      CUTHADCAD = 0.001
      BCUTECAD=0.00001
      DCUTECAD=0.00001
      CUTELECAD = 0.00001
      CUTMUOCAD=0.01
      BCUTMCAD=0.00001
      DCUTMCAD=0.00001
      CUTNEUCAD = 0.001
      PPCUTMCAD=0.01
      PAIRCAD = 1  
      COMPCAD = 1  
      PHOTCAD = 1  
      PFISCAD = 0  
      DRAYCAD = 1  
      ANNICAD = 1  
      BREMCAD = 1  
      HADRCAD = 1  
      MUNUCAD = 1  
      DCAYCAD = 1  
      LOSSCAD = 1  
      MULSCAD = 2  
      RETURN
      END