*-- Author :    Marialuigia Ambriola   12/04/2006
      SUBROUTINE GPPOL
************************************************************************
*                                                                      *
* To define special tracking parameters for POLYSTYRENE                *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 12/04/2006 11.44                       *
*                                                                      *
************************************************************************
#include "gppol.inc"
*
      CUTGAMPOL = 0.00001
      CUTELEPOL = 0.00001
      CUTNEUPOL = 0.001
      CUTHADPOL = 0.001
c ml:
      BCUTEPOL=0.00001
      DCUTEPOL=0.00001
      CUTMUOPOL=0.01
      BCUTMPOL=0.00001
      DCUTMPOL=0.00001
      PPCUTMPOL=0.01
c end ml.
      PAIRPOL = 1
      COMPPOL = 1
      PHOTPOL = 1
      PFISPOL = 0
      DRAYPOL = 1
      ANNIPOL = 1
      BREMPOL = 1
      HADRPOL = 1
      MUNUPOL = 1
      DCAYPOL = 1
      LOSSPOL = 1
      MULSPOL = 2
      RETURN
      END