CGEM BOSS 6.6.5.f
BESIII Offline Software System
Loading...
Searching...
No Matches
PseuMar.h
Go to the documentation of this file.
1*/////////////////////////////////////////////////////////////////////////////
2*// //
3*// //
4*// Universal random number generator proposed by MARSAGLIA and ZAMAN //
5*// in report FSU-SCRI-87-50 //
6*// //
7*// //
8*/////////////////////////////////////////////////////////////////////////////
9
10 INTEGER modcns
11 PARAMETER (modcns = 1000000000)
12
13 REAL m_U, m_C, m_CD, m_CM, m_twom24
14 INTEGER m_i97, m_j97, m_ntot, m_ijkl, m_ntot2, m_iwarm
15
16 COMMON /c_PseuMar/
17 $ m_U(97),
18 $ m_C,
19 $ m_CD,
20 $ m_CM,
21 $ m_i97,
22 $ m_j97,
23 $ m_twom24,
24 $ m_ijkl,
25 $ m_ntot,
26 $ m_ntot2,
27 $ m_iwarm
28 SAVE /c_PseuMar/
29*/////////////////////////////////////////////////////////////////////////////
30*// //
31*// //
32*/////////////////////////////////////////////////////////////////////////////
PARAMETER
*******INTEGER m_nBinMax INTEGER m_NdiMax PARAMETER(m_NdiMax=5) ! maximum dimension for siplices INTEGER m_KdiMax PARAMETER(m_KdiMax
m_CM
********INTEGER modcns REAL m_CM
Definition: PseuMar.h:13
m_j97
********INTEGER modcns REAL m_twom24 INTEGER m_j97
Definition: PseuMar.h:14
m_ntot
********INTEGER modcns REAL m_twom24 INTEGER m_ntot
Definition: PseuMar.h:14
m_CD
********INTEGER modcns REAL m_CD
Definition: PseuMar.h:13
m_i97
********INTEGER modcns REAL m_twom24 INTEGER m_i97
Definition: PseuMar.h:14
m_ntot2
********INTEGER modcns REAL m_twom24 INTEGER m_ntot2
Definition: PseuMar.h:14
m_U
********INTEGER modcns REAL m_U
Definition: PseuMar.h:13
m_ijkl
********INTEGER modcns REAL m_twom24 INTEGER m_ijkl
Definition: PseuMar.h:14
m_twom24
********INTEGER modcns REAL m_twom24 INTEGER m_iwarm COMMON c_PseuMar $ $ $ $ $ $ $ m_twom24
Definition: PseuMar.h:23
m_C
********INTEGER modcns REAL m_C
Definition: PseuMar.h:13
INTEGER
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)