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