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

00001 *
00002 *//                                                                          //
00003 *//                     Pseudo-CLASS  YFSini2                                //
00004 *//                                                                          //
00005 *//                  !!!!! SPECIAL TESTS !!!!!!                              //
00006 *//                                                                          //
00007 *//   Purpose:  ISR photon emission, photon multiplicity and momenta         //
00008 *//                                                                          //
00009 *
00010 *//                                                                          //
00011 *//  The algorithm in this subprogram was ALSO described in:                 //
00012 *//  ``Yennie-Frautschi-Suura soft photons in Monte Carlo event generators'' //
00013 *//             Unpublished report by S. Jadach,                             //
00014 *//          MPI-Munchen, MPI-PAE/PTh 6/87, Jan. 1987.                       //
00015 *//                                                                          //
00016 *
00017 
00018       DOUBLE PRECISION   m_amel,  m_alfinv,  m_vvmin
00019       INTEGER m_nmax,  m_out,     m_KeyWtm,  m_MltISR,  m_NevGen
00020 
00021       COMMON /c_YFSini2/
00022      $  m_amel,              ! electron beam mass
00023      $  m_alfinv,            ! Alpha_QED at Thomson limit
00024      $  m_vvmin,             ! minimum v, infrared cut
00025      $  m_nmax,              ! maximum photon multiplicity
00026      $  m_out,               ! output unit number
00027      $  m_KeyWtm,            ! omitting mass terms in S-factors
00028      $  m_MltISR,            ! fixed photon mult. VERY SPECIAL tests
00029      $  m_NevGen             ! event counter
00030       SAVE   /c_YFSini2/
00031 *
00032 *//                                                                          //
00033 *//                      End of CLASS  YFSini2                               //
00034 *