[u/mrichter/AliRoot.git] / TEvtGen / EvtGenModels / begevtgenget.F

      subroutine begevtgenget(entry,eventnum,numparticle,istat,
     +                          partnum,mother,daugfirst,dauglast,
     +                          px,py,pz,e,m,x,y,z,t)
*
* Copyright Information: See EvtGen/COPYRIGHT
*
* routine to read from the stdhep common block from
* evtgen (C++). This routine allows the C++ program not to
* have to mess with common blocks.
*
* Anders Ryd,  Oct 1   Created.
*
* 
      implicit none
#include "EvtGenModels/stdhep.inc"

        integer entry,eventnum,numparticle,istat,partnum
        integer mother,daugfirst,dauglast

        integer stdhepnum

        double precision px,py,pz,e,m,x,y,z,t

        stdhepnum=partnum


        eventnum=nevhep
        numparticle=nhep
        istat=isthep(entry)
        stdhepnum=idhep(entry)
        mother=jmohep(1,entry)
        daugfirst=jdahep(1,entry)
        dauglast=jdahep(2,entry)
        px=phep(1,entry)
        py=phep(2,entry)
        pz=phep(3,entry)
        e=phep(4,entry)
        m=phep(5,entry)
        x=vhep(1,entry)
        y=vhep(2,entry)
        z=vhep(3,entry)
        t=vhep(4,entry)

 	 return

      end
Commit	Line	Data
da0e9ce3	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