]>
Commit | Line | Data |
---|---|---|
fa3d1cc7 | 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 | } |