TFluka/Fevtflg.h

   1 extern "C" {
   2 //*$ create evtflg.add
   3 //*copy evtflg
   4 //*
   5 //*=== evtflg ===========================================================*
   6 //*
   7 //*----------------------------------------------------------------------*
   8 //*                                                                      *
   9 //*     event flags:                                                     *
  10 //*                                                                      *
  11 //*     created on    19 may 1998    by    alfredo ferrari & paola sala  *
  12 //*                                                   infn - milan       *
  13 //*                                                                      *
  14 //*     last change on   13-aug-99   by    alfredo ferrari               *
  15 //*                                                                      *
  16 //*                                                                      *
  17 //*----------------------------------------------------------------------*
  18 //*
  19 //*
  20
  21 typedef struct {
  22    Int_t    lelevt;
  23    Int_t    linevt;
  24    Int_t    ldecay;
  25    Int_t    ldltry;
  26    Int_t    lpairp;
  27    Int_t    lbrmsp;
  28    Int_t    lannrs;
  29    Int_t    lannfl;
  30    Int_t    lphoel;
  31    Int_t    lcmptn;
  32    Int_t    lcohsc;
  33    Int_t    llensc;
  34    Int_t    loppsc;
  35    Int_t    leldis;
  36    Int_t    lrdcay;
  37    Int_t    ntrcks;
  38 } evtflgCommon;
  39 #define EVTFLG COMMON_BLOCK(EVTFLG,evtflg)
  40 COMMON_BLOCK_DEF(evtflgCommon,EVTFLG);
  41 }