gpamela/gpcal/gpg10c.F

*
* $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
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
7	*CMZ : 2.03/00 30/10/2000 10.56.20 by Francesco Cafagna
8	*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
9	*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
10	*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
11	*-- Author : Francesco Cafagna 04/04/96
12	SUBROUTINE GPG10C
13	************************************************************************
14	* *
15	* To define special tracking parameters for G10 *
16	* *
17	* Called by: GPDAT *
18	* Author: Francesco Cafagna, 04/04/96 17.41.17 *
19	* *
20	************************************************************************
21	#include "gpg10c.inc"
22	C
23	CUTGAMG10C = 0.00001
24	CUTELEG10C = 0.00001
25	CUTNEUG10C = 0.001
26	CUTHADG10C = 0.001
27	PAIRG10C = 1
28	COMPG10C = 1
29	PHOTG10C = 1
30	PFISG10C = 0
31	DRAYG10C = 1
32	ANNIG10C = 1
33	BREMG10C = 1
34	HADRG10C = 1
35	MUNUG10C = 1
36	DCAYG10C = 1
37	LOSSG10C = 1
38	MULSG10C = 2
39	RETURN
40	END