ISAJET/code/eebeg.F

   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