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 //* beawei = weight of the beam particles *
45 //* bmaxis(j,i) = j_th component of the i_th axis used to define the*
46 //* conventional x,y,z beam reference frame *
47 //*!!!!! ATTENTION: in C++ it is the component bmaxis(i,j) !!!!! *
48 //* ijbeam = beam particle type (see btype in /paprop/) *
49 //* ijhion = heavy ion type if ijbeam = -2 *
50 //* ldpgss = true for a gaussian momentum distribution of the *
51 //* beam particles, false for a rectangular one *
52 //* ldvgss = true for a gaussian angular divergence distribution *
53 //* of the beam particles, false for a rectangular one *
54 //* ldxgss = true for a gaussian spatial distribution of the beam *
55 //* spot in the x-direction, false for a rectangular one *
56 //* ldygss = true for a gaussian spatial distribution of the beam *
57 //* spot in the y-direction, false for a rectangular one *
58 //* lbeamc = flag for an annular beam *
59 //* lpperp = flag for polar. perp. to the beam direction *
60 //* lpfrac = flag for interpreting the polar. fraction
61 //* lbaxis = logical flag for using a beam axis frame different *
62 //* from the standard one *
64 //*----------------------------------------------------------------------*
65 // LBEAMC, LPPERP, LPFRAC, LDPGSS, LDVGSS, LDXGSS, LDYGSS,
85 Double_t bmaxis[3][3];
97 #define BEAM COMMON_BLOCK(BEAM,beam)
98 COMMON_BLOCK_DEF(beamCommon,BEAM);