Switch to negative values of logical output units to obtain binary output
[u/mrichter/AliRoot.git] / TFluka / Femfrgn.h
CommitLineData
eb2b916d 1#ifndef FEMFRGN_H
2#define FEMFRGN_H 1
3
4#include "cfortran.h"
5#include "Rtypes.h"
6extern "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) )
28typedef 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)
42COMMON_BLOCK_DEF(emfrgnCommon,EMFRGN);
eb2b916d 43}
44
45#endif