10 //*=== beam =============================================================*
12 //*----------------------------------------------------------------------*
13 //* include file: beam copy created 26/11/86 by pa*
15 //* changes: on 22-oct-1993 by alfredo ferrari *
17 //* included in the following subroutines or functions: not updated *
19 //* description of the common block(s) and variable(s) *
22 //* /beam/ contains properties of the beam of primary particles *
23 //* pbeam = average momentum of the beam particles in gev/c *
24 //* dpbeam = momentum spread of the beam in gev/c *
25 //* divbm = angular divergense of the beam in mrad *
26 //* xspot = beam width in x-direction in cm *
27 //* yspot = beam width in y-direction in cm *
28 //* xina = x-coordinate of the centre of the beam spot *
29 //* yina = y-coordinate of the centre of the beam spot *
30 //* zina = z-coordinate of the centre of the beam spot *
31 //* tinx = direction cosine of the beam with respect to *
33 //* tiny = direction cosine of the beam with respect to *
35 //* tinz = direction cosine of the beam with respect to *
37 //* tinpx = direction cosine of the beam polariz. with respect to*
39 //* tinpy = direction cosine of the beam polariz. with respect to*
41 //* tinpz = direction cosine of the beam polariz. with respect to*
43 //* polfra = polarization fraction *
44 //* nforce = number of the region of forced interaction *
45 //* xfor = x-coord. of the starting point of the region nforce *
46 //* yfor = y-coord. of the starting point of the region nforce *
47 //* zfor = z-coord. of the starting point of the region nforce *
48 //* disfor = thickness of the region nforce in cm *
49 //* wfor = relative weight of the particle due to forcing *
50 //* ijbeam = beam particle type (see btype in /paprop/) *
51 //* ijhion = heavy ion type if ijbeam = -2 *
52 //* ipbite = flag describing the shape of the momentum *
53 //* distribution of the beam *
54 //* 0=rectangular, 1=gaussian *
55 //* idiv = flag describing the shape of the angular *
56 //* divergence distribution of the beam *
57 //* 0=rectangular, 1=gaussian *
58 //* ixspot = flag describing the shape of the spatial *
59 //* distribution of the beam spot in x-direction *
60 //* 0=rectangular, 1=gaussian *
61 //* iyspot = flag describing the shape of the spatial *
62 //* distribution of the beam spot in y-direction *
63 //* 0=rectangular, 1=gaussian *
64 //* beawei = weight of the beam particles *
65 //* lbeamc = flag for an annular beam *
66 //* lpperp = flag for polar. perp. to the beam direction *
67 //* lpfrac = flag for interpreting the polar. fraction *
69 //*----------------------------------------------------------------------*
70 // LOGICAL LBEAMC, LPPERP, LPFRAC
105 #define BEAM COMMON_BLOCK(BEAM,beam)
106 COMMON_BLOCK_DEF(beamCommon,BEAM);