/[PAMELA software]/gpamela/gpnd/gpcad.F
ViewVC logotype

Diff of /gpamela/gpnd/gpcad.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pam-ba, Fri Oct 13 16:36:58 2006 UTC revision 1.2 by pam-ba, Fri Nov 10 11:39:35 2006 UTC
# Line 2  Line 2 
2        SUBROUTINE GPCAD        SUBROUTINE GPCAD
3  ************************************************************************  ************************************************************************
4  *                                                                      *  *                                                                      *
5  * To define special tracking parameters for cadmium                    *  * To define special tracking parameters for Cadmium                    *
6  *                                                                      *  *                                                                      *
7  * Called by: GPDAT                                                     *  * Called by: GPDAT                                                     *
8  * Author: Marialuigia Ambriola, 12/10/2006 20.40                       *  * Author: Marialuigia Ambriola, 12/10/2006 20.40                       *
# Line 10  Line 10 
10  ************************************************************************  ************************************************************************
11  #include "gpcad.inc"  #include "gpcad.inc"
12  *  *
13        CUTGAMCAD = 0.00001        CUTGAMCAD = 0.0001
14        CUTHADCAD = 0.001        CUTELECAD = 0.0001
15        BCUTECAD=0.00001        CUTNEUCAD = 0.0001
16        DCUTECAD=0.00001        CUTHADCAD = 0.0001
17        CUTELECAD = 0.00001  c ml:
18        CUTMUOCAD=0.01        BCUTECAD=0.001
19        BCUTMCAD=0.00001        DCUTECAD=0.0001
20        DCUTMCAD=0.00001        CUTMUOCAD=0.0001
21        CUTNEUCAD = 0.001        BCUTMCAD=0.001
22          DCUTMCAD=0.0001
23        PPCUTMCAD=0.01        PPCUTMCAD=0.01
24        PAIRCAD = 1    c end ml.
25        COMPCAD = 1          PAIRCAD = 1
26        PHOTCAD = 1          COMPCAD = 1
27        PFISCAD = 0          PHOTCAD = 1
28        DRAYCAD = 1          PFISCAD = 0
29        ANNICAD = 1          DRAYCAD = 1
30        BREMCAD = 1          ANNICAD = 1
31        HADRCAD = 1          BREMCAD = 1
32        MUNUCAD = 1          HADRCAD = 4
33        DCAYCAD = 1          MUNUCAD = 1
34        LOSSCAD = 1          DCAYCAD = 1
35        MULSCAD = 2          LOSSCAD = 1
36          MULSCAD = 1
37        RETURN        RETURN
38        END        END
39    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23