TFluka/Fstars.h

   1 #ifndef FSTARS_H
   2 #define FSTARS_H 1
   3
   4 #include "cfortran.h"
   5 #include "Rtypes.h"
   6
   7 #include "Fdimpar.h"
   8
   9 extern "C" {
  10 //*$ create stars.add
  11 //*copy stars
  12 //*
  13 //*=== stars ============================================================*
  14 //*
  15 //*----------------------------------------------------------------------*
  16 //*                                                                      *
  17 //*     stars common for fluka:                                          *
  18 //*                                                                      *
  19 //*     version for fluka90/99/... of the original one of fluka86        *
  20 //*                                                                      *
  21 //*                                                                      *
  22 //*     created on    15 may 1990    by    alfredo ferrari & paola sala  *
  23 //*                                                   infn - milan       *
  24 //*                                                                      *
  25 //*     last change on  07-oct-99    by    alfredo ferrari               *
  26 //*                                                                      *
  27 //*                                                                      *
  28 //*     description of the common variable(s):                           *
  29 //*                                                                      *
  30 //*        ntstar = total number of stars generated (modulo 1000000000)  *
  31 //*        neulow = total number of low energy neutron interactions      *
  32 //*                (modulo 1000000000)                                   *
  33 //*        numdec = total number of decays (modulo 1000000000)           *
  34 //*        mtstar = total number of stars generated / 100000000          *
  35 //*        meulow = total number of low energy neutron interactions      *
  36 //*               / 1000000000                                           *
  37 //*        mumdec = total number of decays (modulo 1000000000)           *
  38 //*        wstars = total weight of the stars generated                  *
  39 //*        wneulw = total weight of the low energy neutron interactions  *
  40 //*        westar = weight of the stars generated by                     *
  41 //*                 different particle types                             *
  42 //*        westop = total weight of the particles stopped                *
  43 //*        wstop  = weight of particles of different types stopped       *
  44 //*        weisec = total weight of the secondaries created              *
  45 //*        weifis = total weight of high energy fissions                 *
  46 //*        weipri = total weight of the primaries handled                *
  47 //*        edi    = deposited energy                                     *
  48 //*                 edi(1) = by ionisation                               *
  49 //*                 edi(2) = by pi-zeros and/or em cascade               *
  50 //*                 edi(3) = by nuclear excitation (or nuclear recoil    *
  51 //*                          and heavies if the evaporation module is    *
  52 //*                          activated)                                  *
  53 //*                 edi(4) = by stopped particles                        *
  54 //*                 edi(5) = energy leaving the system                   *
  55 //*                 edi(6) = energy carried by discarded particles       *
  56 //*                 edi(7) = by residual excitation energy (only if the  *
  57 //*                          evaporation module is activated)            *
  58 //*                 edi(8) = by low energy neutrons (kerma due to low    *
  59 //*                          energy neutrons transport is in effect)     *
  60 //*                 edi(9) = energy carried by time killed particles     *
  61 //*                 edi(10)= energy wasted for nuclear binding energy    *
  62 //*                          effects for e > 50 mev                      *
  63 //*                 edi(11)= energy wasted for nuclear binding energy    *
  64 //*                          effects for low energy neutrons             *
  65 //*        wdec   = weight of the particles decayed                      *
  66 //*        wdau   = weight of the decay-products                         *
  67 //*        wtkll  = weight of the time-killed particles                  *
  68 //*        wtdec  = total weight of the particles decayed                *
  69 //*        wtdau  = total weight of the decay products                   *
  70 //*        wttkll = total weight of the time killed particles            *
  71 //*        wlwnsc = weight of the low energy neutrons interaction secon- *
  72 //*                 daries                                               *
  73 //*        wdecct = weight of the particles decayed for which a c tau    *
  74 //*                 scoring is done                                      *
  75 //*        deccts = decay c tau scoring                                  *
  76 //*----------------------------------------------------------------------*
  77 //*
  78
  79 typedef struct {
  80    Double_t westar[nallwp+7];
  81    Double_t wstop[nallwp+7];
  82    Double_t wdau[nallwp+7];
  83    Double_t wtkll[nallwp+7];
  84    Double_t wdec[nallwp+7];
  85    Double_t weifis[nallwp+7];
  86    Double_t deccts[nallwp+7];
  87    Double_t wdecct[nallwp+7];
  88    Double_t weisec[nallwp+19];
  89    Double_t wlwnsc[4];
  90    Double_t wophsc[4];
  91    Double_t edi[11];
  92    Double_t woptph;
  93    Double_t wneulw;
  94    Double_t westop;
  95    Double_t wstars;
  96    Double_t weipri;
  97    Double_t wtdec;
  98    Double_t wtdau;
  99    Double_t wttkll;
 100    Int_t    numdec;
 101    Int_t    ntstar;
 102    Int_t    neulow;
 103    Int_t    numoph;
 104    Int_t    mumdec;
 105    Int_t    mtstar;
 106    Int_t    meulow;
 107    Int_t    mumoph;
 108 } starsCommon;
 109 #define STARS COMMON_BLOCK(STARS,stars)
 110 COMMON_BLOCK_DEF(starsCommon,STARS);
 111 }
 112
 113 #endif