*-- Author : Marialuigia Ambriola 27/10/2006 SUBROUTINE GPHE3 ************************************************************************ * * * To define special tracking parameters for He3 * * * * Called by: GPDAT * * Author: Marialuigia Ambriola, 27/10/2006 20.33 * * * ************************************************************************ #include "gphe3.inc" * CUTGAMHE3 = 0.0001 CUTELEHE3 = 0.0001 CUTNEUHE3 = 0.0001 CUTHADHE3 = 0.0001 c ml: BCUTEHE3=0.001 DCUTEHE3=0.0001 CUTMUOHE3=0.0001 BCUTMHE3=0.001 DCUTMHE3=0.0001 PPCUTMHE3=0.01 c end ml. PAIRHE3 = 1 COMPHE3 = 1 PHOTHE3 = 1 PFISHE3 = 0 DRAYHE3 = 1 ANNIHE3 = 1 BREMHE3 = 1 HADRHE3 = 4 MUNUHE3 = 1 DCAYHE3 = 1 LOSSHE3 = 1 MULSHE3 = 1 RETURN END