]> git.uio.no Git - u/mrichter/AliRoot.git/blob - GEANT321/geant321/reac.inc
Minor corrections after big transformer changes
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / reac.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:42  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_REAC_INC
10 #define CERNLIB_GEANT321_REAC_INC
11 *
12 *
13 * reac.inc
14 *
15 *
16 *=== reac =============================================================*
17 *
18 *----------------------------------------------------------------------*
19 *                                                                      *
20 *     Created on 10 december 1991  by    Alfredo Ferrari & Paola Sala  *
21 *                                                   Infn - Milan       *
22 *                                                                      *
23 *     Last change on 10-dec-91     by    Alfredo Ferrari               *
24 *                                                                      *
25 *     This is the original common reac of Hadrin                       *
26 *                                                                      *
27 *     Included in the following routines:                              *
28 *                                                                      *
29 *                CALUMV                                                *
30 *                DATESH                                                *
31 *                HADRIV                                                *
32 *                RCHANV                                                *
33 *                BLKDT3                                                *
34 *                HADRIN                                                *
35 *                IEFUN                                                 *
36 *                SIGINT                                                *
37 *                CALUMO                                                *
38 *                RCHANW                                                *
39 *                                                                      *
40 *----------------------------------------------------------------------*
41 *
42       COMMON /FKREAC/ UMO   ( 296), PLABF ( 296), SIIN  ( 296),
43      +              WK    (5184), NRK  (2,268), NURE  (30,2)
44  
45
46 #endif