Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2024-04-06 12:14:06

0001       SUBROUTINE FASTJETPPgenkt(P,NPART,R,PALG,F77JETS,NJETS)
0002       DOUBLE PRECISION P(4,*), R, PALG, F77JETS(4,*)
0003       DOUBLE PRECISION dP, dR, dPALG
0004       INTEGER          NPART, NJETS,Nd
0005 
0006       F77JETS(1,1)=0d0
0007       NJETS=0
0008       dP=P(1,1)
0009       Nd=NPART
0010       dR=R
0011       dPALG=PALG
0012 c      write(*,*)"FastJet called with :",F77JETS(1,1),NJETS,R,PALG
0013 c      stop"But FastJet not installed !"
0014 
0015       END