/[PAMELA software]/gpamela/gpcal/gpg10c.F
ViewVC logotype

Annotation of /gpamela/gpcal/gpg10c.F

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3.1 - (hide annotations) (download)
Thu Jul 11 16:02:14 2002 UTC (22 years, 5 months ago) by cafagna
Branch: MAIN
Branch point for: v3r0
Initial revision

1 cafagna 3.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

  ViewVC Help
Powered by ViewVC 1.1.23