* * $Id$ * * $Log$ * *CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti *CMZ : 2.03/00 30/10/2000 10.56.20 by Francesco Cafagna *CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola *CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna *CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna *-- Author : Francesco Cafagna 04/04/96 SUBROUTINE GPG10C ************************************************************************ * * * To define special tracking parameters for G10 * * * * Called by: GPDAT * * Author: Francesco Cafagna, 04/04/96 17.41.17 * * * ************************************************************************ #include "gpg10c.inc" C CUTGAMG10C = 0.00001 CUTELEG10C = 0.00001 CUTNEUG10C = 0.001 CUTHADG10C = 0.001 PAIRG10C = 1 COMPG10C = 1 PHOTG10C = 1 PFISG10C = 0 DRAYG10C = 1 ANNIG10C = 1 BREMG10C = 1 HADRG10C = 1 MUNUG10C = 1 DCAYG10C = 1 LOSSG10C = 1 MULSG10C = 2 RETURN END