Coding conventions.
[u/mrichter/AliRoot.git] / 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