← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/check_sa.f

  • Committer: olivier Mattelaer
  • Date: 2015-03-05 00:14:16 UTC
  • mfrom: (258.1.9 2.3)
  • mto: (258.8.1 2.3)
  • mto: This revision was merged to the branch mainline in revision 259.
  • Revision ID: olivier.mattelaer@uclouvain.be-20150305001416-y9mzeykfzwnl9t0j
partial merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/check_sa.f
18
18
      INTEGER NPSPOINTS
19
19
      PARAMETER (NPSPOINTS = 4)
20
20
 
 
21
C     integer nexternal and number particles (incoming+outgoing) in
 
22
C      the me 
 
23
      INTEGER NEXTERNAL, NINCOMING
 
24
      PARAMETER (NEXTERNAL=5,NINCOMING=2)
 
25
 
21
26
      CHARACTER(512) MADLOOPRESOURCEPATH
22
27
 
23
28
C     
26
31
C     the include file with the values of the parameters and masses   
27
32
C        
28
33
      INCLUDE 'coupl.inc'
29
 
C     integer nexternal C number particles (incoming+outgoing) in the
30
 
C      me 
31
 
      INCLUDE 'nexternal.inc'
32
34
C     particle masses
33
35
      REAL*8 PMASS(NEXTERNAL)
34
36
C     integer    n_max_cg
428
430
C      rambo
429
431
C     four momenta.         
430
432
      IMPLICIT NONE
431
 
      INCLUDE 'nexternal.inc'
 
433
      INTEGER NEXTERNAL, NINCOMING
 
434
      PARAMETER (NEXTERNAL=5,NINCOMING=2)
432
435
C     ARGUMENTS
433
436
      REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
434
437
C     LOCAL
514
517
C     *****************************************************************
515
518
C     *****
516
519
      IMPLICIT REAL*8(A-H,O-Z)
517
 
      INCLUDE 'nexternal.inc'
 
520
      INTEGER NEXTERNAL, NINCOMING
 
521
      PARAMETER (NEXTERNAL=5,NINCOMING=2)
518
522
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
519
523
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4)
520
524
     $ ,B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING)