]>
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 | //* | |
380c2ff0 | 16 | // COMMON / EMFRGN / ELETHR (MXXRGN), PHOTHR (MXXRGN), |
17 | // & EMREJE, EMSAMP, EMSNGL, | |
18 | // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF, | |
19 | // & NOSCAT, NOLLDA | |
20 | // OLD EFMRGN: | |
eb2b916d | 21 | // COMMON / EFMRGN / RHOR (MXXRGN), ECUT (MXXRGN), PCUT (MXXRGN), |
22 | // & EMREJE, EMSAMP, EMSNGL, VACDST, | |
23 | // & MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF, | |
24 | // & NOSCAT, NOLLDA | |
25 | //*D === Obsolete variable names === * | |
26 | //*D DIMENSION MED (MXXRGN) | |
27 | //*D EQUIVALENCE ( MED (1), MEDEMF (1) ) | |
28 | typedef struct { | |
71dd9297 | 29 | Double_t elethr[mxxrgn]; |
30 | Double_t phothr[mxxrgn]; | |
eb2b916d | 31 | Double_t emreje; |
32 | Double_t emsamp; | |
33 | Double_t emsngl; | |
eb2b916d | 34 | Int_t medemf[mxxrgn]; |
35 | Int_t iraylr[mxxrgn]; | |
36 | Int_t nrgemf; | |
37 | Int_t noscat; | |
38 | Int_t nollda; | |
39 | } emfrgnCommon; | |
40 | ||
11e28b34 | 41 | #define EMFRGN COMMON_BLOCK(EMFRGN,emfrgn) |
42 | COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN); | |
eb2b916d | 43 | } |
44 | ||
45 | #endif |