Dummy initialization ov HEPEVT COMMON block
authorhristov <Peter.Hristov@cern.ch>
Wed, 3 Dec 2014 13:45:15 +0000 (14:45 +0100)
committeragrigora <alina.grigoras@cern.ch>
Mon, 15 Dec 2014 12:52:04 +0000 (13:52 +0100)
TEvtGen/HepMC/dummy.F [new file with mode: 0644]

diff --git a/TEvtGen/HepMC/dummy.F b/TEvtGen/HepMC/dummy.F
new file mode 100644 (file)
index 0000000..2bd5bb4
--- /dev/null
@@ -0,0 +1,25 @@
+      BLOCK DATA DUMMY
+C     Initialize the HEPEVT COMMON block
+C     This helps to resolve the hepevt_ symbol when we link the library
+
+#include "stdhep.inc"
+
+      DATA nevhep/0/                   ! serial number
+      DATA nhep/0/                     ! number of particles
+      DATA (isthep(I),I=1,nmxhep)/nmxhep*0/           ! status code
+      DATA (idhep(I),I=1,nmxhep)/nmxhep*0/            ! particle ident KF
+      DATA (jmohep(1,I),I=1,nmxhep)/nmxhep*0/         ! parent particles
+      DATA (jmohep(2,I),I=1,nmxhep)/nmxhep*0/         ! parent particles
+      DATA (jdahep(1,I),I=1,nmxhep)/nmxhep*0/         ! childreen particles
+      DATA (jdahep(2,I),I=1,nmxhep)/nmxhep*0/         ! childreen particles
+      DATA (phep(1,I),I=1,nmxhep)/nmxhep*0/           ! four-momentum, mass [GeV]
+      DATA (phep(2,I),I=1,nmxhep)/nmxhep*0/           ! four-momentum, mass [GeV]
+      DATA (phep(3,I),I=1,nmxhep)/nmxhep*0/           ! four-momentum, mass [GeV]
+      DATA (phep(4,I),I=1,nmxhep)/nmxhep*0/           ! four-momentum, mass [GeV]
+      DATA (phep(5,I),I=1,nmxhep)/nmxhep*0/           ! four-momentum, mass [GeV]
+      DATA (vhep(1,I),I=1,nmxhep)/nmxhep*0/           ! vertex [mm]
+      DATA (vhep(2,I),I=1,nmxhep)/nmxhep*0/           ! vertex [mm]
+      DATA (vhep(3,I),I=1,nmxhep)/nmxhep*0/           ! vertex [mm]
+      DATA (vhep(4,I),I=1,nmxhep)/nmxhep*0/           ! vertex [mm]
+
+      END