This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (SNNUCM)
1 *$ CREATE SNNUCM.ADD
2 *COPY SNNUCM
3 *
4 *=== snnucm ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     SuperNova NeUtrino CoMmon:                                       *
9 *                                                                      *
10 *     Created on 29 february 1996  by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 21-feb-01     by    Alfredo Ferrari               *
14 *                                                                      *
15 *                                                                      *
16 *       Tmpsnn(i) = temperature (MeV) of the emission spectrum for the *
17 *                   i_th neutrino specie                               *
18 *       Alpsnn(i) = alpha term of the emission spectrum for the        *
19 *                   i_th neutrino specie                               *
20 *       Fnrsnn(i) = normalization factor for the emission spectrum for *
21 *                   the i_th  neutrino specie                          *
22 *       Ftsnnu(i) = total flux (at 10 kpc) for the emission spectrum   *
23 *                   for the i_th  neutrino specie                      *
24 *       Rtsnnu(i) = total rate (ev/kTon at 10 kpc) for the i_th        *
25 *                   neutrino specie                                    *
26 *       Resnnu(i) = electron elastic rate (ev/kTon at 10 kpc) for      *
27 *                   the i_th  neutrino specie                          *
28 *       Rgsnnu(i) = Gamow-Teller rate (ev/kTon at 10 kpc) for the i_th *
29 *                   neutrino specie                                    *
30 *       Rfsnnu(i) = Fermi rate (ev/kTon at 10 kpc) for the i_th        *
31 *                   neutrino specie                                    *
32 *       Weisnn(i) = weight of the emission spectrum for the i_th       *
33 *                   neutrino specie                                    *
34 *                                                                      *
35 *----------------------------------------------------------------------*
36 *
37 *  Number of energy bins for elastic supernova neutrino scattering
38       PARAMETER ( NSNESC = 3000 )
39 *  Number of energy bins for Gamow-Teller and Fermi supernova neutrino
40 *  absorptions
41       PARAMETER ( NSNGTF = 1200 )
42 *  Energy step for elastic supernova neutrino scattering
43       PARAMETER ( DESNES = 0.00002D+00 )
44 *  Energy step for Gamow-Teller and Fermi supernova neutrino
45 *  absorptions
46       PARAMETER ( DESNGF = 0.00005D+00 )
47       COMMON / SNNUCM / TMPSNN (6), ALPSNN (6), FNRSNN (6), FTSNNU (6),
48      &                  RTSNNU (6), RESNNU (6), RGSNNU (6), RFSNNU (6),
49      &                  WEISNN (6),
50      &                  SPESSN (0:NSNESC,6), CUESSN (0:NSNESC,6),
51      &                  SPGTSN (0:NSNGTF,6), CUGTSN (0:NSNGTF,6),
52      &                  SPFRSN (0:NSNGTF,2), CUFRSN (0:NSNGTF,2)
53
54