3 IMPLICIT DOUBLE PRECISION (a-h,o-z)
4 common/pysubs/msel,mselpd,msub(500),kfin(2,-40:40),ckin(200)
5 common/pypars/mstp(200),parp(200),msti(200),pari(200)
6 common/pydat1/mstu(200),paru(200),mstj(200),parj(200)
7 common/pydat3/mdcy(500,3),mdme(8000,2),brat(8000),kfdp(8000,5)
8 COMMON / inout / inut,nout
22 OPEN(nout ,file=
'demo.out')
30 CALL tauola(-1,keypol)
41 call pyinit(
'cms',
'p',
'p',14000.d0)
46 IF(mod(ii,50).EQ.1)
WRITE(6,*)
'event no=',ii
57 IF(ii.LT.101)
CALL pylist(1)
59 IF(ii.LT.101)
CALL pylist(1)