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