This commit was generated by cvs2svn to compensate for changes in r7641,
[u/mrichter/AliRoot.git] / DPMJET / flukapro / (LBRCTR)
1 *$ CREATE LBRCTR.ADD
2 *COPY LBRCTR
3 *
4 *=== lbrctr ===========================================================*
5 *
6 *----------------------------------------------------------------------*
7 *                                                                      *
8 *     from/to LaBoratory to/from ReaCtion frame TRansformation         *
9 *                                                                      *
10 *     Created on 18 february 1992  by    Alfredo Ferrari & Paola Sala  *
11 *                                                   Infn - Milan       *
12 *                                                                      *
13 *     Last change on 29-dec-92     by    Alfredo Ferrari               *
14 *                                                                      *
15 *          Rrlfij = Rij rotation matrix for going from the reaction    *
16 *                   to the lab frame                                   *
17 *          Rlrfij = R'ij rotation matrix for going from the lab to the *
18 *                   reaction frame, of course R'ij=R-1ij               *
19 *      U,V,Wangmo = direction cosines of the angular momentum in the   *
20 *                   lab frame (0,0,1  in the reaction frame)           *
21 *             (uangmo=sinthaxcospha,vangmo=sinthaxsinpha,wangmo=costha)*
22 *          Rgiven = r of the given point                               *
23 *          Phigvn = phi of the given point                             *
24 *          Pgiven = momentum module at the given point                 *
25 *          Pphgvn = phi component of the momentum at the given point   *
26 *          Pprgvn = r   component of the momentum at the given point   *
27 *          Phpgvn = phi of the momentum at the given point             *
28 *          Egiven = Energy at the given point                          *
29 *          Vgiven = Potential at the given point                       *
30 *          Bgiven = impact parameter at the given point                *
31 *          Cosgvn = cos (phigvn)                                       *
32 *          Singvn = sin (phigvn)                                       *
33 *          Cspgvn = cos (pphgvn)                                       *
34 *          Snpgvn = sin (pphgvn)                                       *
35 *          Angmom = angular momentum modulus                           *
36 *          Ppat00 = initial projectile momentum                        *
37 *          Epat00 = initial projectile total energy                    *
38 *          Biat00 = impact parameter at oo                             *
39 *          Phia00 = initial position angle                             *
40 *          Phpa00 = initial momentum angle                             *
41 *          Csph00 = cos (phpa00)                                       *
42 *          Snph00 = sin (phpa00)                                       *
43 *  Note that:                                                          *
44 *          cos (phia00) = cos (phpa00-pi) = - cos (phpa00) = - csph00  *
45 *          sin (phia00) = sin (phpa00-pi) = - sin (phpa00) = - snph00  *
46 *                                                                      *
47 *----------------------------------------------------------------------*
48 *
49       PARAMETER ( COUCST = COUGFM )
50       PARAMETER ( RPLABC = PLABRC )
51 *
52       COMMON / LBRCTR / RRLF11, RRLF12, RRLF13, RRLF21, RRLF22, RRLF23,
53      &                  RRLF31, RRLF32, RRLF33, UANGMO, VANGMO, WANGMO,
54      &                  SINTA2, SINTHA, SINPHA, COSPHA, PGIVEN, PHPGVN,
55      &                  EGIVEN, VGIVEN, RGIVEN, BGIVEN, PHIGVN, PPAT00,
56      &                  PHPA00, EPAT00, BIAT00, PHIA00, COULPT, ANGMOM,
57      &                  PPHGVN, PPRGVN, PPHA00, PPRA00, COSGVN, SINGVN,
58      &                  CSPGVN, SNPGVN, CSPH00, SNPH00
59       EQUIVALENCE ( RLRF11, RRLF11 )
60       EQUIVALENCE ( RLRF12, RRLF21 )
61       EQUIVALENCE ( RLRF13, RRLF31 )
62       EQUIVALENCE ( RLRF21, RRLF12 )
63       EQUIVALENCE ( RLRF22, RRLF22 )
64       EQUIVALENCE ( RLRF23, RRLF32 )
65       EQUIVALENCE ( RLRF31, RRLF13 )
66       EQUIVALENCE ( RLRF32, RRLF23 )
67       EQUIVALENCE ( RLRF33, RRLF33 )
68       EQUIVALENCE ( COSTHA, WANGMO )
69