EMFRGN common block added.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 26 May 2005 09:49:21 +0000 (09:49 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 26 May 2005 09:49:21 +0000 (09:49 +0000)
TFluka/Femfrgn.h [new file with mode: 0644]

diff --git a/TFluka/Femfrgn.h b/TFluka/Femfrgn.h
new file mode 100644 (file)
index 0000000..f90e3fa
--- /dev/null
@@ -0,0 +1,42 @@
+#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