10 //*----------------------------------------------------------------------*
12 //* Common Emfrgn for EMF *
14 //*----------------------------------------------------------------------*
16 // COMMON / EMFRGN / ELETHR (MXXRGN), PHOTHR (MXXRGN),
17 // & EMREJE, EMSAMP, EMSNGL,
18 // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
21 // COMMON / EFMRGN / RHOR (MXXRGN), ECUT (MXXRGN), PCUT (MXXRGN),
22 // & EMREJE, EMSAMP, EMSNGL, VACDST,
23 // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
25 //*D === Obsolete variable names === *
26 //*D DIMENSION MED (MXXRGN)
27 //*D EQUIVALENCE ( MED (1), MEDEMF (1) )
29 Double_t elethr[mxxrgn];
30 Double_t phothr[mxxrgn];
41 #define EMFRGN COMMON_BLOCK(EMFRGN,emfrgn)
42 COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN);