← Back to branch summary

~maddevelopers/mg5amcnlo/2.6.3_rwgt

« back to all changes in this revision

Viewing changes to Template/MadWeight/src/setrun.f

  • Committer: olivier-mattelaer
  • Date: 2018-04-29 08:10:16 UTC
  • mfrom: (275.1.80 2.6.2)
  • Revision ID: olivier-mattelaer-20180429081016-9nmfvn1er0zjb23o
pass to 2.6.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/MadWeight/src/setrun.f
292
292
      else 
293
293
         call get_integer (npara,param,value," iseed ",iseed,0)
294
294
      endif
 
295
c
 
296
c     forcd pp collision
 
297
c
 
298
      nb_proton(1) = 1
 
299
      nb_proton(2) = 1
 
300
      nb_neutron(1) = 0
 
301
      nb_neutron(2) = 0
295
302
 
296
303
c************************************************************************     
297
304
c     Renormalization and factorization scales                          *
495
502
 
496
503
      return
497
504
      end
 
505
 
 
506
      logical FUNCTION dummy_cuts(P)
 
507
C**************************************************************************
 
508
C     INPUT:
 
509
C            P(0:3,1)           MOMENTUM OF INCOMING PARTON
 
510
C            P(0:3,2)           MOMENTUM OF INCOMING PARTON
 
511
C            P(0:3,3)           MOMENTUM OF ...
 
512
C            ALL MOMENTA ARE IN THE REST FRAME!!
 
513
C            COMMON/JETCUTS/   CUTS ON JETS
 
514
C     OUTPUT:
 
515
C            TRUE IF EVENTS PASSES ALL CUTS LISTED
 
516
C**************************************************************************
 
517
      IMPLICIT NONE
 
518
c
 
519
c     Constants
 
520
c
 
521
      include 'nexternal.inc'
 
522
C
 
523
C     ARGUMENTS
 
524
C
 
525
      REAL*8 P(0:3,nexternal)
 
526
C
 
527
C     PARAMETERS
 
528
C
 
529
      real*8 PI
 
530
      parameter( PI = 3.14159265358979323846d0 )
 
531
c
 
532
c     particle identification
 
533
c
 
534
 
 
535
      dummy_cuts=.true.
 
536
 
 
537
      return
 
538
      end