No debug message.
[u/mrichter/AliRoot.git] / TFluka / Femfrgn.h
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 / EMFRGN / ELETHR (MXXRGN), PHOTHR (MXXRGN),
17   //   &                  EMREJE, EMSAMP, EMSNGL,
18   //   &                  MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
19   //   &                  NOSCAT, NOLLDA
20   // OLD EFMRGN:
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 {
29   Double_t elethr[mxxrgn];
30   Double_t phothr[mxxrgn];
31   Double_t emreje;
32   Double_t emsamp;
33   Double_t emsngl;
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
41 #define EMFRGN COMMON_BLOCK(EMFRGN,emfrgn)
42 COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN);
43 }
44
45 #endif