First commit common block (FLKSTK)

[u/mrichter/AliRoot.git] / TFluka / Femfrgn.h

#ifndef FEMFRGN_H
#define FEMFRGN_H 1

#include "cfortran.h"
#include "Rtypes.h"
extern "C" {
  //*$ CREATE EMFRGN.ADD
  //*COPY EMFRGN
  //*
  //*----------------------------------------------------------------------*
  //*                                                                      *
  //*     Common Emfrgn for EMF                                            *
  //*                                                                      *
  //*----------------------------------------------------------------------*
  //*
  //    COMMON / EFMRGN / RHOR   (MXXRGN), ECUT   (MXXRGN), PCUT (MXXRGN),
  //   &                  EMREJE, EMSAMP, EMSNGL, VACDST,
  //   &                  MEDEMF (MXXRGN), IRAYLR (MXXRGN), NRGEMF,
  //   &                  NOSCAT, NOLLDA
  //*D === Obsolete variable names === *
  //*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 emreje;
  Double_t emsamp;
  Double_t emsngl;
  Double_t vacdst;
  Int_t    medemf[mxxrgn];
  Int_t    iraylr[mxxrgn];
  Int_t    nrgemf;
  Int_t    noscat;
  Int_t    nollda;
} emfrgnCommon;

#define EFMRGN COMMON_BLOCK(EFMRGN,efmrgn)
COMMON_BLOCK_DEF(emfrgnCommon,EFMRGN);
}

#endif