]>
Commit | Line | Data |
---|---|---|
eb2b916d | 1 | #ifndef FEMFRGN_H |
2 | #define FEMFRGN_H 1 | |
3 | ||
4 | #include "cfortran.h" | |
5 | #include "Rtypes.h" | |
6 | extern "C" { | |
7 | //*$ CREATE EMFRGN.ADD | |
8 | //*COPY EMFRGN | |
9 | //* | |
10 | //*----------------------------------------------------------------------* | |
11 | //* * | |
12 | //* Common Emfrgn for EMF * | |
13 | //* * | |
14 | //*----------------------------------------------------------------------* | |
15 | //* | |
16 | // COMMON / EFMRGN / RHOR (MXXRGN), ECUT (MXXRGN), PCUT (MXXRGN), | |
17 | // & EMREJE, EMSAMP, EMSNGL, VACDST, | |
18 | // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF, | |
19 | // & NOSCAT, NOLLDA | |
20 | //*D === Obsolete variable names === * | |
21 | //*D DIMENSION MED (MXXRGN) | |
22 | //*D EQUIVALENCE ( MED (1), MEDEMF (1) ) | |
23 | typedef struct { | |
71dd9297 | 24 | Double_t elethr[mxxrgn]; |
25 | Double_t phothr[mxxrgn]; | |
eb2b916d | 26 | Double_t emreje; |
27 | Double_t emsamp; | |
28 | Double_t emsngl; | |
eb2b916d | 29 | Int_t medemf[mxxrgn]; |
30 | Int_t iraylr[mxxrgn]; | |
31 | Int_t nrgemf; | |
32 | Int_t noscat; | |
33 | Int_t nollda; | |
34 | } emfrgnCommon; | |
35 | ||
11e28b34 | 36 | #define EMFRGN COMMON_BLOCK(EMFRGN,emfrgn) |
37 | COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN); | |
eb2b916d | 38 | } |
39 | ||
40 | #endif |