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 / 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 {
  24   Double_t rhor[mxxrgn];
  25   Double_t ecut[mxxrgn];
  26   Double_t pcut[mxxrgn];
  27   Double_t emreje;
  28   Double_t emsamp;
  29   Double_t emsngl;
  30   Double_t vacdst;
  31   Int_t    medemf[mxxrgn];
  32   Int_t    iraylr[mxxrgn];
  33   Int_t    nrgemf;
  34   Int_t    noscat;
  35   Int_t    nollda;
  36 } emfrgnCommon;
  37
  38 #define EFMRGN COMMON_BLOCK(EFMRGN,efmrgn)
  39 COMMON_BLOCK_DEF(emfrgnCommon,EFMRGN);
  40 }
  41
  42 #endif