~maddevelopers/mg5amcnlo/3.0.1

« back to all changes in this revision

Viewing changes to Template/NLO/SubProcesses/fastjet_wrapper.f

  • Committer: Marco Zaro
  • Date: 2014-01-27 16:54:10 UTC
  • mfrom: (78.124.55 MG5_aMC_2.1)
  • Revision ID: marco.zaro@gmail.com-20140127165410-5lma8c2hzbzm426j
merged with lp:~maddevelopers/madgraph5/MG5_aMC_2.1 r 267

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
      subroutine amcatnlo_fastjetppgenkt_timed(pQCD,NN,rfj,sycut,palg,
 
2
     &pjet,njet,jet)
 
3
 
 
4
      include 'nexternal.inc'
 
5
 
 
6
c     arguments
 
7
      double precision pQCD(0:3,nexternal),PJET(0:3,nexternal)
 
8
      double precision rfj,sycut,palg
 
9
      integer NN,JET(nexternal),njet
 
10
 
 
11
c     timing statistics
 
12
      real*4 tbefore, tAfter
 
13
      real*4 tTot, tOLP, tFastJet, tPDF
 
14
      common/timings/tTot, tOLP, tFastJet, tPDF
 
15
 
 
16
      call cpu_time(tBefore)
 
17
      call amcatnlo_fastjetppgenkt(pQCD,NN,rfj,sycut,palg,
 
18
     &pjet,njet,jet)
 
19
      call cpu_time(tAfter)
 
20
      tFastJet = tFastJet + (tAfter-tBefore)
 
21
      end