IOIOCM common block added.
[u/mrichter/AliRoot.git] / TFluka / Fioiocm.h
1 #ifndef FIOIOCM_H
2 #define FIOIOCM_H
3
4 #include "Rtypes.h"
5 #include "cfortran.h"
6 extern "C" {
7
8 /*
9 *$ CREATE IOIOCM.ADD
10 *COPY IOIOCM
11 *
12 *=== Ioiocm ===========================================================*
13 *
14 *----------------------------------------------------------------------*
15 *                                                                      *
16 *     Copyright (C) 2002-2006      by  Alfredo Ferrari                 *
17 *     All Rights Reserved.                                             *
18 *                                                                      *
19 *                                                                      *
20 *     IOn-IOn CoMmon:                                                  *
21 *                                                                      *
22 *     Ion-Ion collision common for Fluka9x/Fluka200x....:              *
23 *                                                                      *
24 *     Last change  on  19-apr-06   by  Alfredo Ferrari, INFN-Milan     *
25 *                                                                      *
26 *     Description of the variable(s):                                  *
27 *                                                                      *
28 *        Eknion = laboratory kinetic  energy per nucleon  (GeV/amu)    *
29 *        Etnion = laboratory total    energy per nucleon  (GeV/amu)    *
30 *        Plnion = laboratory momentum        per nucleon  (GeV/c/amu)  *
31 *        Eexion = excitation energy of the projectile ion (GeV)        *
32 *        T12ion = half life of the projectile ion (for Eexion=0) (s)   *
33 *     Matprj(i) = list   of materials used as projectiles              *
34 *        Nmatpr = number of materials defined inside Matprj            *
35 *        Iproa  = the projectile mass   number                         *
36 *        Iproz  = the projectile proton number                         *
37 *        Iprom  = the projectile isomer number                         *
38 *                                                                      *
39 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!     *
40 *     !!!! Note that the units are GeV/amu --> per unit mass  !!!!     *
41 *     !!!! with mass measured in amu (1 amu = Amuc12 GeV)     !!!!     *
42 *     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!     *
43 *                                                                      *
44 *----------------------------------------------------------------------*
45 *
46       COMMON / IOIOCM / EKNION, ETNION, PLNION, EEXION, T12ION,
47      &                  MATPRJ (MXXMDF), NMATPR, IPROA , IPROZ , IPROM
48       SAVE / IOIOCM /
49 */
50     typedef struct {
51         Double_t eknion;
52         Double_t etnion;
53         Double_t plnion;
54         Double_t eexion;
55         Double_t t12ion;
56         Int_t    matprj[mxxmdf];
57         Int_t    nmatpr;
58         Int_t    iproa;
59         Int_t    iproz;
60         Int_t    iprom;
61     } ioiocmCommon;
62 #define IOIOCM COMMON_BLOCK(IOIOCM,ioiocm)
63 COMMON_BLOCK_DEF(ioiocmCommon, IOIOCM);
64
65 }
66 #endif