* * $Id$ * * $Log$ * *CMZ : 3.00/00 08/02/2002 17.54.28 by Unknown *CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola *CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna *CMZ : 1.00/02 04/04/96 17.54.02 by Francesco Cafagna *-- Author : Francesco Cafagna 04/04/96 SUBROUTINE GPXE ************************************************************************ * * * To define special tracking parameters for Xenon * * * * Called by: GPDAT * * Author: Francesco Cafagna, 04/04/96 17.41.17 * * * ************************************************************************ #include "gpxe.inc" *kinetic energy cuts in GeV: CUTGAMXE = 0.0001 CUTELEXE = 0.0001 CUTHADXE = 0.0001 CUTNEUXE = 0.0001 CUTMUOXE = 0.0001 c BCUTEXE = CUTGAMXE c BCUTMXE = CUTGAMXE BCUTEXE = 0.001 BCUTMXE = 0.001 DCUTEXE = CUTELEXE DCUTMXE = CUTELEXE PPCUTMXE = 0.01 *control of physics process: *default: c PAIRXE = 1 c COMPXE = 1 c PHOTXE = 1 c PFISXE = 0 c ANNIXE = 1 c BREMXE = 1 c HADRXE = 1 c MUNUXE = 1 c DCAYXE = 1 C MULSXE = 1 cc BIRK1XE = cc BIRK2XE = cc BIRK3XE = cc LABSXE = cc SYNCXE = *user: *. #if defined(GPAMELA_GARFIELD) LOSSXE = 0 DRAYXE = 0 MULSXE = 0 PAIRXE = 0 COMPXE = 0 PHOTXE = 0 PFISXE = 0 ANNIXE = 0 BREMXE = 0 HADRXE = 0 MUNUXE = 0 DCAYXE = 0 *. #endif #if !defined(GPAMELA_GARFIELD) LOSSXE = 1 DRAYXE = 1 MULSXE = 1 PAIRXE = 1 COMPXE = 1 PHOTXE = 1 PFISXE = 0 ANNIXE = 1 BREMXE = 1 HADRXE = 1 MUNUXE = 1 DCAYXE = 1 #endif * RETURN END