← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_default/ddx_ttx/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/short_ML_SMQCD_default/ddx_ttx/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=4,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
426
428
C      rambo
427
429
C     four momenta.         
428
430
      IMPLICIT NONE
429
 
      INCLUDE 'nexternal.inc'
 
431
      INTEGER NEXTERNAL, NINCOMING
 
432
      PARAMETER (NEXTERNAL=4,NINCOMING=2)
430
433
C     ARGUMENTS
431
434
      REAL*8 ENERGY,PMASS(NEXTERNAL),P(0:3,NEXTERNAL),PRAMBO(4,10),WGT
432
435
C     LOCAL
512
515
C     *****************************************************************
513
516
C     *****
514
517
      IMPLICIT REAL*8(A-H,O-Z)
515
 
      INCLUDE 'nexternal.inc'
 
518
      INTEGER NEXTERNAL, NINCOMING
 
519
      PARAMETER (NEXTERNAL=4,NINCOMING=2)
516
520
      DIMENSION XM(NEXTERNAL-NINCOMING),P(4,NEXTERNAL-NINCOMING)
517
521
      DIMENSION Q(4,NEXTERNAL-NINCOMING),Z(NEXTERNAL-NINCOMING),R(4)
518
522
     $ ,B(3),P2(NEXTERNAL-NINCOMING),XM2(NEXTERNAL-NINCOMING)