gpamela/gpcal/gpg10c.F

*
* $Id: gpg10c.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
*
* $Log: gpg10c.F,v $
* Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
* First GPAMELA release on CVS
*
*
*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
c ml:
      BCUTEG10C=0.00001
      DCUTEG10C=0.00001
      CUTMUOG10C=0.01
      BCUTMG10C=0.00001
      DCUTMG10C=0.00001
      PPCUTMG10C=0.01
c end ml.
      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
1	cafagna	3.1	*
2	pamela	3.2	* $Id: gpg10c.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3			*
4			* $Log: gpg10c.F,v $
5			* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
10			*CMZ : 2.03/00 30/10/2000 10.56.20 by Francesco Cafagna
11			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
12			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
13			*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
14			*-- Author : Francesco Cafagna 04/04/96
15			SUBROUTINE GPG10C
16			************************************************************************
17			* *
18			* To define special tracking parameters for G10 *
19			* *
20			* Called by: GPDAT *
21			* Author: Francesco Cafagna, 04/04/96 17.41.17 *
22			* *
23			************************************************************************
24			#include "gpg10c.inc"
25			C
26			CUTGAMG10C = 0.00001
27			CUTELEG10C = 0.00001
28			CUTNEUG10C = 0.001
29			CUTHADG10C = 0.001
30	pamela	3.2	c ml:
31			BCUTEG10C=0.00001
32			DCUTEG10C=0.00001
33			CUTMUOG10C=0.01
34			BCUTMG10C=0.00001
35			DCUTMG10C=0.00001
36			PPCUTMG10C=0.01
37			c end ml.
38	cafagna	3.1	PAIRG10C = 1
39			COMPG10C = 1
40			PHOTG10C = 1
41			PFISG10C = 0
42			DRAYG10C = 1
43			ANNIG10C = 1
44			BREMG10C = 1
45			HADRG10C = 1
46			MUNUG10C = 1
47			DCAYG10C = 1
48			LOSSG10C = 1
49			MULSG10C = 2
50			RETURN
51			END