4 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
5 common/ludat3/mdcy(500,3),mdme(2000,2),brat(2000),kfdp(2000,5)
6 COMMON / inout / inut,nout
19 OPEN(nout ,file=
'demo.out')
29 CALL tauola(-1,keypol)
33 IF(mod(ii,50).EQ.1)
WRITE(6,*)
'event no=',ii
42 IF(ii.LT.101) CALL lulist(1)
44 IF(ii.LT.101) CALL lulist(1)