This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (BEMIT)
1 *$ CREATE BEMIT.ADD
2 *COPY BEMIT
3 *----------------------------------------------------------------------*
4 *     include file: bemit copy                    created 26/11/86 by p*
5 *     changes: none                                                    *
6 *     included in the following subroutines or functions: not updated  *
7 *                                                                      *
8 *     description of the common block(s) and variable(s)               *
9 *                                                                      *
10 *     /bemit/ contains beam properties when emittances specified       *
11 *        verts  = s-parameter for the vertical focus, is distance of   *
12 *                 v-focus from xina,yina,zina along the beam,          *
13 *                 +ve if focus upstream of xina,yina,zina.             *
14 *        vertl  = vertical l-parameter of the beam                     *
15 *        verte  = vertical emittance                                   *
16 *        hors   = s-parameter for horizontal focus, is distance of     *
17 *                 h-focus from xina,yina,zina along the beam,          *
18 *                 +ve if focus upstream of xina,yina,zina.             *
19 *        horl   = horizontal l-parameter of the beam                   *
20 *        hore   = horizontal emittance                                 *
21 *        vsig   = sigma of spatial v-distribution                      *
22 *        vpsig  = sigma of angular vprime-distribution                 *
23 *        hsig   = sigma of spatial h-distribution                      *
24 *        hpsig  = sigma of angular hprime-distribution                 *
25 *        txv    = x-direction cosine of v-axis                         *
26 *        tyv    = y-direction cosine of v-axis                         *
27 *        tzv    = z-direction cosine of v-axis                         *
28 *        txh    = x-direction cosine of h-axis                         *
29 *        tyh    = y direction cosine of h-axis                         *
30 *        tzh    = z-direction cosine of h-axis                         *
31 *        ibemit = 1 if emittance option chosen, if not = 0             *
32 *----------------------------------------------------------------------*
33       COMMON/BEMIT/VERTS,VERTL,VERTE,HORS,HORL,HORE,VSIG,VPSIG,
34      1   HSIG,HPSIG,TXV,TYV,TZV,TXH,TYH,TZH,IBEMIT
35