10 //*=== Sourcm ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* Include file: sourcm *
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: *
31 //* Whasou(1-18) = user variables *
32 //* Tkesum = total kinetic energy of the primaries of the *
33 //* user written source *
34 //* Lussrc = flag to inform that the user written source was *
36 //* Sdusou = user character variable *
37 //* Lsouit = source is called iteratively until it is .true. *
39 //*----------------------------------------------------------------------*
48 #define SOURCM COMMON_BLOCK(SOURCM,sourcm)
49 COMMON_BLOCK_DEF(sourcmCommon,SOURCM);
54 #define CHSOCM COMMON_BLOCK(CHSOCM,chsocm)
55 COMMON_BLOCK_DEF(chsocmCommon,CHSOCM);
64 #define NORLAT COMMON_BLOCK(NORLAT,norlat)
65 COMMON_BLOCK_DEF(norlatCommon,NORLAT);
89 #define PAREM COMMON_BLOCK(PAREM,parem)
90 COMMON_BLOCK_DEF(paremCommon,PAREM);