|
||||
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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |