6f9501595b55106358bea014cf5642452d9fe266
[u/mrichter/AliRoot.git] / TFluka / Ffinuc.h
1 extern "C" {
2 //*$ create finuc.add
3 //*copy finuc
4 //*
5 //*=== finuc ============================================================*
6 //*
7 //*----------------------------------------------------------------------*
8 //*                                                                      *
9 //*     include file: finuc (new version of old finuc of fluka86)        *
10 //*                                                                      *
11 //*     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
12 //*     !!!!     s e e   a l s o   i n c l u d e   f i l e     !!!!      *
13 //*     !!!!                 f i n u c 2                       !!!!      *
14 //*     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
15 //*                                                                      *
16 //*     created on  20 january 1996  by    alfredo ferrari & paola sala  *
17 //*                                                   infn - milan       *
18 //*                                                                      *
19 //*     last change on 26-jul-97     by    alfredo ferrari               *
20 //*                                                                      *
21 //*     included in the following subroutines or functions: not updated  *
22 //*                                                                      *
23 //*     description of the common block(s) and variable(s)               *
24 //*                                                                      *
25 //*     /finuc/ is the storage for secondaries created in event          *
26 //*        np        = number of secondaries                             *
27 //*       kpart (ip) = type of the secondary ip                          *
28 //*         cxr (ip) = direction cosine of the secondary ip              *
29 //*                    with respect to x-axis                            *
30 //*         cyr (ip) = direction cosine of the secondary ip              *
31 //*                    with respect to y-axis                            *
32 //*         czr (ip) = direction cosine of the secondary ip              *
33 //*                    with respect to z-axis                            *
34 //*      cxrpol (ip) = direction cosine of the secondary ip polarization *
35 //*                    with respect to x-axis                            *
36 //*      cyrpol (ip) = direction cosine of the secondary ip polarization *
37 //*                    with respect to y-axis                            *
38 //*      czrpol (ip) = direction cosine of the secondary ip polarization *
39 //*                    with respect to z-axis                            *
40 //*         tki (ip) = kinetic energy of secondary ip                    *
41 //*         plr (ip) = momentum of the secondary ip                      *
42 //*         wei (ip) = weight of the secondary ip                        *
43 //*      agesec (ip) = "age" of the secondary ip with respect to the     *
44 //*                    interaction time                                  *
45 //*        tv        = excitation energy                                 *
46 //*        tvcms     = actual excitation energy of the residual nucleus  *
47 //*        tvrecl    = recoil kinetic energy of the residual nucleus     *
48 //*        tvheav    = recoil kinetic energies of heavy (2-h, 3-h, 3-he, *
49 //*                    4-he) fragments after evaporation                 *
50 //*        tvbind    = approximate energy wasted in nuclear binding      *
51 //*                    effects (not yet operational)                     *
52 //*                                                                      *
53 //*----------------------------------------------------------------------*
54 //*
55 const Int_t mxp = 999;
56 //*
57
58 typedef struct {
59    Double_t cxr[mxp];
60    Double_t cyr[mxp];
61    Double_t czr[mxp];
62    Double_t cxrpol[mxp];
63    Double_t cyrpol[mxp];
64    Double_t czrpol[mxp];
65    Double_t tki[mxp];
66    Double_t plr[mxp];
67    Double_t wei[mxp];
68    Double_t agesec[mxp];
69    Double_t tv;
70    Double_t tvcms;
71    Double_t tvrecl;
72    Double_t tvheav;
73    Double_t tvbind;
74    Int_t    np0;
75    Int_t    np;
76    Int_t    kpart[mxp];
77 } finucCommon;
78 #define FINUC COMMON_BLOCK(FINUC,finuc)
79 COMMON_BLOCK_DEF(finucCommon,FINUC);
80 }