TEvtGen/EvtGenModels/begevtgenget.F

   1       subroutine begevtgenget(entry,eventnum,numparticle,istat,
   2      +                          partnum,mother,daugfirst,dauglast,
   3      +                          px,py,pz,e,m,x,y,z,t)
   4 *
   5 * Copyright Information: See EvtGen/COPYRIGHT
   6 *
   7 * routine to read from the stdhep common block from
   8 * evtgen (C++). This routine allows the C++ program not to
   9 * have to mess with common blocks.
  10 *
  11 * Anders Ryd,  Oct 1   Created.
  12 *
  13 *
  14       implicit none
  15 #include "EvtGenModels/stdhep.inc"
  16
  17         integer entry,eventnum,numparticle,istat,partnum
  18         integer mother,daugfirst,dauglast
  19
  20         integer stdhepnum
  21
  22         double precision px,py,pz,e,m,x,y,z,t
  23
  24         stdhepnum=partnum
  25
  26
  27
  28         eventnum=nevhep
  29         numparticle=nhep
  30         istat=isthep(entry)
  31         stdhepnum=idhep(entry)
  32         mother=jmohep(1,entry)
  33         daugfirst=jdahep(1,entry)
  34         dauglast=jdahep(2,entry)
  35         px=phep(1,entry)
  36         py=phep(2,entry)
  37         pz=phep(3,entry)
  38         e=phep(4,entry)
  39         m=phep(5,entry)
  40         x=vhep(1,entry)
  41         y=vhep(2,entry)
  42         z=vhep(3,entry)
  43         t=vhep(4,entry)
  44
  45          return
  46
  47       end
  48
  49
  50
  51
  52
  53
  54
  55