TFluka/Fepisor.h

   1 #ifndef FEPISOR_H
   2 #define FEPISOR_H 1
   3
   4 #include "Rtypes.h"
   5 #include "cfortran.h"
   6 extern "C" {
   7 //*$ create episor.add
   8 //*copy episor
   9 //*
  10 //*=== episor ===========================================================*
  11 //*
  12 //*----------------------------------------------------------------------*
  13 //*                                                                      *
  14 //*     Include file: episor                                             *
  15 //*                                                                      *
  16 //*     version       march 1996     by   Alfredo Ferrari, INFN - Milan  *
  17 //*                                                                      *
  18 //*     Last change on 09-mar-02     by    Alfredo Ferrari               *
  19 //*                                                                      *
  20 //*     Included in the following subroutines or functions:              *
  21 //*                                                                      *
  22 //*            BDNOPT                                                    *
  23 //*            EPILOG                                                    *
  24 //*            EVTDAT                                                    *
  25 //*            FEEDER                                                    *
  26 //*            FLUKAM                                                    *
  27 //*            MGDRAW                                                    *
  28 //*            SOURCE                                                    *
  29 //*                                                                      *
  30 //*     Description of the common block(s) and variable(s)               *
  31 //*                                                                      *
  32 //*      Whasou(1-18) = user variables                                   *
  33 //*            Tkesum = total kinetic energy of the primaries of the     *
  34 //*                     user written source                              *
  35 //*            Lussrc = flag to inform that the user written source was  *
  36 //*                     used                                             *
  37 //*            Sdusou = user character variable                          *
  38 //*            Lsouit = source is called iteratively until it is .true.  *
  39 //*                                                                      *
  40 //*----------------------------------------------------------------------*
  41 //*
  42
  43 typedef struct {
  44    Double_t whasou[18];
  45    Double_t tkesum;
  46    Int_t    lussrc;
  47    Int_t    lsouit;
  48 } episorCommon;
  49 #define EPISOR COMMON_BLOCK(EPISOR,episor)
  50 COMMON_BLOCK_DEF(episorCommon,EPISOR);
  51
  52 typedef struct {
  53    Char_t   sdusou[8];
  54 } chepsrCommon;
  55 #define CHEPSR COMMON_BLOCK(CHEPSR,chepsr)
  56 COMMON_BLOCK_DEF(chepsrCommon,CHEPSR);
  57 }
  58
  59 #endif