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 }