*
*=== lbrctr ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     from/to LaBoratory to/from ReaCtion frame TRansformation         *
*                                                                      *
*     Created on 18 February 1992  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*          Rrlfij = Rij rotation matrix for going from the reaction    *
*                   to the lab frame                                   *
*          Rlrfij = R'ij rotation matrix for going from the lab to the *
*                   reaction frame, of course R'ij=R-1ij               *
*      U,V,Wangmo = direction cosines of the angular momentum in the   *
*                   lab frame (0,0,1  in the reaction frame)           *
*             (uangmo=sinthaxcospha,vangmo=sinthaxsinpha,wangmo=costha)*
*          Rgiven = r of the given point                               *
*          Phigvn = phi of the given point                             *
*          Pgiven = momentum module at the given point                 *
*          Pphgvn = phi component of the momentum at the given point   *
*          Pprgvn = r   component of the momentum at the given point   *
*          Phpgvn = phi of the momentum at the given point             *
*          Egiven = Energy at the given point                          *
*          Vgiven = Potential at the given point                       *
*          Bgiven = impact parameter at the given point                *
*          Cosgvn = cos (phigvn)                                       *
*          Singvn = sin (phigvn)                                       *
*          Cspgvn = cos (pphgvn)                                       *
*          Snpgvn = sin (pphgvn)                                       *
*          Angmom = angular momentum modulus                           *
*          Ppat00 = initial projectile momentum                        *
*          Epat00 = initial projectile total energy                    *
*          Biat00 = impact parameter at oo                             *
*          Phia00 = initial position angle                             *
*          Phpa00 = initial momentum angle                             *
*          Csph00 = cos (phpa00)                                       *
*          Snph00 = sin (phpa00)                                       *
*  Note that:                                                          *
*          cos (phia00) = cos (phpa00-pi) = - cos (phpa00) = - csph00  *
*          sin (phia00) = sin (phpa00-pi) = - sin (phpa00) = - snph00  *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( COUCST = COUGFM )
      PARAMETER ( RPLABC = PLABRC )
*
      COMMON / LBRCTR / RRLF11, RRLF12, RRLF13, RRLF21, RRLF22, RRLF23,
     &                  RRLF31, RRLF32, RRLF33, UANGMO, VANGMO, WANGMO,
     &                  SINTA2, SINTHA, SINPHA, COSPHA, PGIVEN, PHPGVN,
     &                  EGIVEN, VGIVEN, RGIVEN, BGIVEN, PHIGVN, PPAT00,
     &                  PHPA00, EPAT00, BIAT00, PHIA00, COULPT, ANGMOM,
     &                  PPHGVN, PPRGVN, PPHA00, PPRA00, COSGVN, SINGVN,
     &                  CSPGVN, SNPGVN, CSPH00, SNPH00
      EQUIVALENCE ( RLRF11, RRLF11 )
      EQUIVALENCE ( RLRF12, RRLF21 )
      EQUIVALENCE ( RLRF13, RRLF31 )
      EQUIVALENCE ( RLRF21, RRLF12 )
      EQUIVALENCE ( RLRF22, RRLF22 )
      EQUIVALENCE ( RLRF23, RRLF32 )
      EQUIVALENCE ( RLRF31, RRLF13 )
      EQUIVALENCE ( RLRF32, RRLF23 )
      EQUIVALENCE ( RLRF33, RRLF33 )
      EQUIVALENCE ( COSTHA, WANGMO )
      SAVE / LBRCTR /