Gmtod and Gdtom added.
[u/mrichter/AliRoot.git] / TFluka / Fepisor.h
CommitLineData
b9d0a01d 1#ifndef FEPISOR_H
2#define FEPISOR_H 1
3
4#include "Rtypes.h"
5#include "cfortran.h"
6extern "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
43typedef 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)
50COMMON_BLOCK_DEF(episorCommon,EPISOR);
51
52typedef struct {
53 Char_t sdusou[8];
54} chepsrCommon;
55#define CHEPSR COMMON_BLOCK(CHEPSR,chepsr)
56COMMON_BLOCK_DEF(chepsrCommon,CHEPSR);
57}
58
59#endif