From 96e17a58aa83302a3789de8fa888582bd83734d6 Mon Sep 17 00:00:00 2001 From: hristov Date: Wed, 3 Dec 2014 14:45:15 +0100 Subject: [PATCH] Dummy initialization ov HEPEVT COMMON block --- TEvtGen/HepMC/dummy.F | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 TEvtGen/HepMC/dummy.F diff --git a/TEvtGen/HepMC/dummy.F b/TEvtGen/HepMC/dummy.F new file mode 100644 index 00000000000..2bd5bb4c55d --- /dev/null +++ b/TEvtGen/HepMC/dummy.F @@ -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 -- 2.43.5