10 //*=== episor ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* Include file: episor *
16 //* version march 1996 by Alfredo Ferrari, INFN - Milan *
18 //* Last change on 09-mar-02 by Alfredo Ferrari *
20 //* Included in the following subroutines or functions: *
30 //* Description of the common block(s) and variable(s) *
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 *
37 //* Sdusou = user character variable *
38 //* Lsouit = source is called iteratively until it is .true. *
40 //*----------------------------------------------------------------------*
49 #define EPISOR COMMON_BLOCK(EPISOR,episor)
50 COMMON_BLOCK_DEF(episorCommon,EPISOR);
55 #define CHEPSR COMMON_BLOCK(CHEPSR,chepsr)
56 COMMON_BLOCK_DEF(chepsrCommon,CHEPSR);