//* *
//*----------------------------------------------------------------------*
//*
+ // COMMON / EMFRGN / ELETHR (MXXRGN), PHOTHR (MXXRGN),
+ // & EMREJE, EMSAMP, EMSNGL,
+ // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
+ // & NOSCAT, NOLLDA
+ // OLD EFMRGN:
// COMMON / EFMRGN / RHOR (MXXRGN), ECUT (MXXRGN), PCUT (MXXRGN),
// & EMREJE, EMSAMP, EMSNGL, VACDST,
// & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
//*D DIMENSION MED (MXXRGN)
//*D EQUIVALENCE ( MED (1), MEDEMF (1) )
typedef struct {
- Double_t rhor[mxxrgn];
- Double_t ecut[mxxrgn];
- Double_t pcut[mxxrgn];
+ Double_t elethr[mxxrgn];
+ Double_t phothr[mxxrgn];
Double_t emreje;
Double_t emsamp;
Double_t emsngl;
- Double_t vacdst;
Int_t medemf[mxxrgn];
Int_t iraylr[mxxrgn];
Int_t nrgemf;
Int_t nollda;
} emfrgnCommon;
-#define EFMRGN COMMON_BLOCK(EFMRGN,efmrgn)
-COMMON_BLOCK_DEF(emfrgnCommon,EFMRGN);
+#define EMFRGN COMMON_BLOCK(EMFRGN,emfrgn)
+COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN);
}
#endif