TFluka/Fsumcou.h

   1 #ifndef FSUMCOU_H
   2 #define FSUMCOU_H 1
   3
   4 #include "cfortran.h"
   5 #include "Rtypes.h"
   6
   7 #include "Fdimpar.h"
   8
   9 extern "C" {
  10 //*=== Sumcou ===========================================================*
  11 //*
  12 //*----------------------------------------------------------------------*
  13 //*                                                                      *
  14 //*     All additions wrt the original one are:                          *
  15 //*     Copyright (C) 2005-2005      by    Alfredo Ferrari & Paola Sala  *
  16 //*     All Rights Reserved.                                             *
  17 //*                                                                      *
  18 //*                                                                      *
  19 //*     SUMmary COUnters common for FLUKA9x/200x:                        *
  20 //*                                                                      *
  21 //*     (New version of the original STARS comon)                        *
  22 //*                                                                      *
  23 //*                                                                      *
  24 //*     Created on    15 may 1990    by    Alfredo Ferrari & Paola Sala  *
  25 //*                                                   Infn - Milan       *
  26 //*                                                                      *
  27 //*     Last change on  09-jul-05    by    Alfredo Ferrari               *
  28 //*                                                                      *
  29 //*                                                                      *
  30 //*     Variable description:                                            *
  31 //*                                                                      *
  32 //*        Ntstar = total number of stars generated (modulo 1000000000)  *
  33 //*        Neulow = total number of low energy neutron interactions      *
  34 //*                (modulo 1000000000)                                   *
  35 //*        Numdec = total number of decays (modulo 1000000000)           *
  36 //*        Numoph = total number of optical photons generated            *
  37 //*                (modulo 1000000000)                                   *
  38 //*        Mtstar = total number of stars generated / 100000000          *
  39 //*        Meulow = total number of low energy neutron interactions      *
  40 //*               / 1000000000                                           *
  41 //*        Mumdec = total number of decays / 1000000000                  *
  42 //*        Mumoph = total number of optical photons generated /1000000000*
  43 //*   Wneulw(k,j) = total weight of the low energy neutron interactions  *
  44 //*   Woptph(k,j) = total weight of generated optical photons            *
  45 //*   Westar(k,j) = weight of the stars generated by                     *
  46 //*                 different particle types                             *
  47 //*   Westop(k,j) = weight of particles of different types stopped       *
  48 //*   Wedaug(k,j) = weight of the decay products                         *
  49 //*   Wekill(k,j) = weight of the time-killed particles                  *
  50 //*   Wedecy(k,j) = weight of the particles decayed                      *
  51 //*   Weifis(k,j) = weight of high energy fissions generated by particles*
  52 //*                 of different kind                                    *
  53 //*   Deccts(k,j) = decay c tau scoring                                  *
  54 //*   Wdecct(k,j) = weight of the particles decayed for which a c tau    *
  55 //*                 scoring is done                                      *
  56 //*   Weprdc(k,j) = weight of produced particles of different kind       *
  57 //*   Wlwnsc(k,j) = weight of the low energy neutrons interaction secon- *
  58 //*                 daries                                               *
  59 //*   Wophsc(k,j) = weight of optical photons production/interaction     *
  60 //*                 secondaries                                          *
  61 //*        Weipri = total weight of the primaries handled                *
  62 //*   Edpsco(i,j) = energy deposition scoring (j = 1: prompt particles,  *
  63 //*                                            j = 2: decay  particles)  *
  64 //*            Edpsco(1,j) = by ionisation                               *
  65 //*            Edpsco(2,j) = by pi-zeros and/or EM cascade               *
  66 //*            Edpsco(3,j) = by nuclear excitation (or nuclear recoil    *
  67 //*                          and heavies if the evaporation module is    *
  68 //*                          activated)                                  *
  69 //*            Edpsco(4,j) = by stopped particles                        *
  70 //*            Edpsco(5,j) = energy leaving the system                   *
  71 //*            Edpsco(6,j) = energy carried by discarded particles       *
  72 //*            Edpsco(7,j) = by residual excitation energy (only if the  *
  73 //*                          evaporation module is activated)            *
  74 //*            Edpsco(8,j) = by low energy neutrons (kerma due to low    *
  75 //*                          energy neutrons transport is in effect)     *
  76 //*            Edpsco(9,j) = energy carried by time killed particles     *
  77 //*            Edpsco(10,j)= energy wasted for nuclear binding energy    *
  78 //*                          effects for (low energy neutrons excluded)  *
  79 //*            Edpsco(11,j)= energy wasted for nuclear binding energy    *
  80 //*                          effects for low energy neutrons             *
  81 //*                                                                      *
  82 //*----------------------------------------------------------------------*
  83 //*
  84
  85 typedef struct {
  86    Double_t westar[2][nallwp+7];
  87    Double_t westop[2][nallwp+7];
  88    Double_t wedaug[2][nallwp+7];
  89    Double_t wekill[2][nallwp+7];
  90    Double_t wedecy[2][nallwp+7];
  91    Double_t weifis[2][nallwp+7];
  92    Double_t deccts[2][nallwp+7];
  93    Double_t wdecct[2][nallwp+7];
  94    Double_t weprdc[2][nallwp+7];
  95    Double_t wlwnsc[2][4];
  96    Double_t wophsc[2][4];
  97    Double_t edpsco[2][11];
  98    Double_t woptph;
  99    Double_t wneulw;
 100    Double_t weipri;
 101    Int_t    numdec;
 102    Int_t    ntstar;
 103    Int_t    neulow;
 104    Int_t    numoph;
 105    Int_t    mumdec;
 106    Int_t    mtstar;
 107    Int_t    meulow;
 108    Int_t    mumoph;
 109 } sumcouCommon;
 110 #define SUMCOU COMMON_BLOCK(SUMCOU,sumcou)
 111 COMMON_BLOCK_DEF(sumcouCommon,SUMCOU);
 112 }
 113
 114 #endif