BOSS_7.0.2: /home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/KKMC/KKMC-00-00-55/src/KK2f/Taupair.h Source File

00001 *
00002 *//                                                                                 //
00003 *//                                                                                 //
00004 *//                         Pseudo-CLASS  Taoula                                    //
00005 *//                                                                                 //
00006 *//       Purpose:                                                                  //
00007 *//       (a) Simulation of tau decays                                              //
00008 *//       (b) Provides polarimeter vector                                           //
00009 *//       (c) Transforms decay products to CMS frame                                //
00010 *//       (d) Interfaces Photos to Tauola (partly???)                               //
00011 *//                                                                                 //
00012 *//                                                                                 //
00013 *
00014 
00015       DOUBLE PRECISION      m_pi
00016       PARAMETER( m_pi = 3.1415926535897932384626433832d+00)
00017 
00018 *
00019       DOUBLE PRECISION       m_HvecTau1,         m_HvecTau2
00020       DOUBLE PRECISION       m_HvClone1,         m_HvClone2
00021       DOUBLE PRECISION       m_beta1,     m_alfa1,     m_gamma1
00022       DOUBLE PRECISION       m_beta2,     m_alfa2,     m_gamma2
00023       DOUBLE PRECISION       m_phi1,      m_thet1
00024       DOUBLE PRECISION       m_phi2,      m_thet2
00025       INTEGER     m_out,       m_IsInitialized,  m_idyfs, m_KeyClone, m_IFPHOT
00026 *
00027       COMMON /c_Taupair/
00028      $    m_HvecTau1(4),      ! Spin Polarimeter vector first  Tau
00029      $    m_HvecTau2(4),      ! Spin Polarimeter vector second Tau
00030      $    m_HvClone1(4),      ! Clone Spin Polarimeter vector first  Tau
00031      $    m_HvClone2(4),      ! Clone Spin Polarimeter vector second Tau
00032      $    m_beta1,            ! Random Euler angle for cloning 1-st tau
00033      $    m_alfa1,            ! Random Euler angle for cloning 1-st tau
00034      $    m_gamma1,           ! Random Euler angle for cloning 1-st tau
00035      $    m_beta2,            ! Random Euler angle for cloning 2-nd tau
00036      $    m_alfa2,            ! Random Euler angle for cloning 2-nd tau
00037      $    m_gamma2,           ! Random Euler angle for cloning 2-nd tau
00038      $    m_phi1,             ! phi   of HvecTau1
00039      $    m_thet1,            ! theta of HvecTau1
00040      $    m_phi2,             ! phi   of HvecTau2
00041      $    m_thet2,            ! theta of HvecTau2
00042      $    m_IsInitialized,    ! super key, for inhibiting all tauola activity
00043      $    m_IFPHOT,           ! key for PHOTOS
00044      $    m_KeyClone,         ! switch for cloning procedure =1,2
00045      $    m_idyfs,            ! pointer for internal histograming
00046      $    m_out               ! output unit number
00047       SAVE /c_Taupair/
00048 
00049 * common block of TAUOLA !!!!&&&
00050       INTEGER         m_NP1, m_NP2 
00051       COMMON /TAUPOS/ m_NP1, m_NP2                
00052 *-------------------------------------------------------------------------------------
00053 
00054 *
00055 *//                                                                                 //
00056 *//                      End of CLASS  Tauola                                       //
00057 *//                                                                                 //
00058 *