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

00001 *
00002 *//                                                                         //
00003 *//                                                                         //
00004 *// Universal random number generator proposed by MARSAGLIA and ZAMAN       //
00005 *// in report FSU-SCRI-87-50                                                //
00006 *//                                                                         //
00007 *//                                                                         //
00008 *
00009 
00010       INTEGER    modcns
00011       PARAMETER (modcns = 1000000000)
00012 
00013       REAL      m_U, m_C, m_CD, m_CM, m_twom24
00014       INTEGER   m_i97, m_j97, m_ntot, m_ijkl, m_ntot2, m_iwarm
00015 
00016       COMMON /c_PseuMar/ 
00017      $  m_U(97),
00018      $  m_C,
00019      $  m_CD,
00020      $  m_CM,
00021      $  m_i97,
00022      $  m_j97,
00023      $  m_twom24,
00024      $  m_ijkl,
00025      $  m_ntot,
00026      $  m_ntot2,
00027      $  m_iwarm
00028       SAVE   /c_PseuMar/
00029 *
00030 *//                                                                         //
00031 *//                                                                         //
00032 *