← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/%..%..%Source%MODEL%couplings.f

  • Committer: olivier Mattelaer
  • Date: 2014-06-11 19:47:48 UTC
  • mfrom: (253.1.38 2.1.2)
  • mto: (253.1.70 2.1.2)
  • mto: This revision was merged to the branch mainline in revision 254.
  • Revision ID: olivier.mattelaer@uclouvain.be-20140611194748-nhxx3210gudd1qfw
merge with 2.1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/%..%..%Source%MODEL%couplings.f
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
      SUBROUTINE COUP()
 
6
 
 
7
      IMPLICIT NONE
 
8
      DOUBLE PRECISION PI, ZERO
 
9
      LOGICAL READLHA
 
10
      PARAMETER  (PI=3.141592653589793D0)
 
11
      PARAMETER  (ZERO=0D0)
 
12
      REAL*16 MP__PI, MP__ZERO
 
13
      PARAMETER (MP__PI=3.1415926535897932384626433832795E0_16)
 
14
      PARAMETER (MP__ZERO=0E0_16)
 
15
      INCLUDE 'mp_input.inc'
 
16
      INCLUDE 'mp_coupl.inc'
 
17
 
 
18
      INCLUDE 'input.inc'
 
19
      INCLUDE 'coupl.inc'
 
20
      READLHA = .TRUE.
 
21
      INCLUDE 'intparam_definition.inc'
 
22
      INCLUDE 'mp_intparam_definition.inc'
 
23
 
 
24
      CALL COUP1()
 
25
C     
 
26
C     couplings needed to be evaluated points by points
 
27
C     
 
28
      CALL COUP2()
 
29
      CALL COUP3()
 
30
      CALL MP_COUP2()
 
31
      CALL MP_COUP3()
 
32
 
 
33
      RETURN
 
34
      END
 
35
 
 
36
      SUBROUTINE UPDATE_AS_PARAM()
 
37
 
 
38
      IMPLICIT NONE
 
39
      DOUBLE PRECISION PI, ZERO
 
40
      LOGICAL READLHA
 
41
      PARAMETER  (PI=3.141592653589793D0)
 
42
      PARAMETER  (ZERO=0D0)
 
43
      INCLUDE 'input.inc'
 
44
      INCLUDE 'coupl.inc'
 
45
      READLHA = .FALSE.
 
46
 
 
47
      INCLUDE 'intparam_definition.inc'
 
48
 
 
49
 
 
50
C     
 
51
C     couplings needed to be evaluated points by points
 
52
C     
 
53
      CALL COUP2()
 
54
      CALL COUP3()
 
55
 
 
56
      RETURN
 
57
      END
 
58
 
 
59
      SUBROUTINE MP_UPDATE_AS_PARAM()
 
60
 
 
61
      IMPLICIT NONE
 
62
      LOGICAL READLHA
 
63
      REAL*16 MP__PI, MP__ZERO
 
64
      PARAMETER (MP__PI=3.1415926535897932384626433832795E0_16)
 
65
      PARAMETER (MP__ZERO=0E0_16)
 
66
      INCLUDE 'mp_input.inc'
 
67
      INCLUDE 'mp_coupl.inc'
 
68
 
 
69
      INCLUDE 'input.inc'
 
70
      INCLUDE 'coupl.inc'
 
71
      INCLUDE 'actualize_mp_ext_params.inc'
 
72
      READLHA = .FALSE.
 
73
      INCLUDE 'mp_intparam_definition.inc'
 
74
 
 
75
 
 
76
C     
 
77
C     couplings needed to be evaluated points by points
 
78
C     
 
79
      CALL MP_COUP2()
 
80
      CALL MP_COUP3()
 
81
 
 
82
      RETURN
 
83
      END
 
84