[u/mrichter/AliRoot.git] / ISAJET / code / eebeg.F

#include "isajet/pilot.h"
      SUBROUTINE EEBEG
C          INITIALIZE E+E- EVENTS FOR DOLOG
#include "isajet/itapes.inc"
#include "isajet/primar.inc"
#include "isajet/jetlim.inc"
#include "isajet/jetpar.inc"
      DO 100 I=1,2
      PMIN(I)=HALFE
      PMAX(I)=-1.E9
100   CONTINUE
      QSQ=SCM
      IDIN(1)=-12
      IDIN(2)=12
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE EEBEG
	3	C INITIALIZE E+E- EVENTS FOR DOLOG
	4	#include "isajet/itapes.inc"
	5	#include "isajet/primar.inc"
	6	#include "isajet/jetlim.inc"
	7	#include "isajet/jetpar.inc"
	8	DO 100 I=1,2
	9	PMIN(I)=HALFE
	10	PMAX(I)=-1.E9
	11	100 CONTINUE
	12	QSQ=SCM
	13	IDIN(1)=-12
	14	IDIN(2)=12
	15	RETURN
	16	END