18 $
m_ModeA, ! operational mode
for Initialization
19 $
m_ModeB, ! operational mode
for Initialization
20 $
m_ModeC, ! operational mode
for Initialization
*******DOUBLE PRECISION m_XCrude
*******DOUBLE PRECISION m_XGridB
*******DOUBLE PRECISION m_EGridB INTEGER m_Nevgen INTEGER m_ModeC COMMON c_BStra $ !crude xsection $ !from grid building $ m_EGridB
*******DOUBLE PRECISION m_EGridB INTEGER m_Nevgen INTEGER m_ModeC COMMON c_BStra $ !crude xsection $ !from grid building $ !rel error $ !serial no of event $ !operational mode for Initialization $ !operational mode for Initialization $ m_ModeC
*******DOUBLE PRECISION m_EGridB INTEGER m_out
*******DOUBLE PRECISION m_EGridB INTEGER m_Nevgen INTEGER m_ModeB
*******DOUBLE PRECISION m_EGridB INTEGER m_Nevgen INTEGER m_ModeA
*******DOUBLE PRECISION m_EGridB INTEGER m_Nevgen INTEGER m_ModeC COMMON c_BStra $ !crude xsection $ !from grid building $ !rel error $ m_Nevgen
*******INTEGER m_nBinMax INTEGER m_NdiMax !No of bins in histogram for cell exploration division $ !Last vertex $ !Last active cell $ !Last cell in buffer $ !No of sampling when dividing cell $ !No of function total $ !Flag for random ceel for $ !Flag for type of for WtMax $ !Flag which decides whether vertices are included in the sampling $ entire domain is hyp !Maximum effective eevents per saves r n generator level $ !Flag for chat level in output
*******INTEGER m_nBinMax INTEGER m_NdiMax !No of bins in histogram for cell exploration division $ !Last vertex $ !Last active cell $ !Last cell in buffer $ !No of sampling when dividing cell $ !No of function total $ !Flag for random ceel for $ !Flag for type of for WtMax $ !Flag which decides whether vertices are included in the sampling $ entire domain is hyp !Maximum effective eevents per saves r n generator level $ !Flag for chat level in !Latex Output unit
IMPLICIT REAL *A O Z IMPLICIT INTEGER(I-N) C.... COMMONBALOCKS FOR MODE COMMON/MODEXS/ICH common/bornXS/xborn REAL *8 USER_XX(1000)
1.9.6