← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.3-lepcoll

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_dxd_ttx%parton_lum_2.f

  • Committer: olivier-mattelaer
  • Date: 2021-04-15 15:17:31 UTC
  • mfrom: (78.75.499 3.0)
  • Revision ID: olivier-mattelaer-20210415151731-oq9o5fen2y141m5o
merge with 3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_dxd_ttx%parton_lum_2.f
 
1
      SUBROUTINE DLUM_2(LUM)
 
2
C     ****************************************************            
 
3
C         
 
4
C     Generated by MadGraph5_aMC@NLO v. %(version)s, %(date)s
 
5
C     By the MadGraph5_aMC@NLO Development Team
 
6
C     Visit launchpad.net/madgraph5 and amcatnlo.web.cern.ch
 
7
C     RETURNS PARTON LUMINOSITIES FOR MADFKS                          
 
8
C        
 
9
C     
 
10
C     Process: g d > t t~ d [ real = QCD QED ] QCD^2<=4 QED^2<=2
 
11
C     Process: g s > t t~ s [ real = QCD QED ] QCD^2<=4 QED^2<=2
 
12
C     
 
13
C     ****************************************************            
 
14
C         
 
15
      IMPLICIT NONE
 
16
C     
 
17
C     CONSTANTS                                                       
 
18
C         
 
19
C     
 
20
      INCLUDE 'genps.inc'
 
21
      INCLUDE 'nexternal.inc'
 
22
      DOUBLE PRECISION       CONV
 
23
      PARAMETER (CONV=389379660D0)  !CONV TO PICOBARNS             
 
24
C     
 
25
C     ARGUMENTS                                                       
 
26
C         
 
27
C     
 
28
      DOUBLE PRECISION LUM
 
29
C     
 
30
C     LOCAL VARIABLES                                                 
 
31
C         
 
32
C     
 
33
      INTEGER I, ICROSS,LP
 
34
      DOUBLE PRECISION G1
 
35
      DOUBLE PRECISION D2,S2
 
36
C     
 
37
C     EXTERNAL FUNCTIONS                                              
 
38
C         
 
39
C     
 
40
      DOUBLE PRECISION PDG2PDF
 
41
C     
 
42
C     GLOBAL VARIABLES                                                
 
43
C         
 
44
C     
 
45
      INTEGER              IPROC
 
46
      DOUBLE PRECISION PD(0:MAXPROC)
 
47
      COMMON /SUBPROC/ PD, IPROC
 
48
      INCLUDE 'coupl.inc'
 
49
      INCLUDE 'run.inc'
 
50
      INTEGER IMIRROR
 
51
      COMMON/CMIRROR/IMIRROR
 
52
C     
 
53
C     DATA                                                            
 
54
C         
 
55
C     
 
56
      DATA G1/1*1D0/
 
57
      DATA D2,S2/2*1D0/
 
58
      DATA ICROSS/1/
 
59
C     ----------                                                      
 
60
C         
 
61
C     BEGIN CODE                                                      
 
62
C         
 
63
C     ----------                                                      
 
64
C         
 
65
      LUM = 0D0
 
66
      IF (ABS(LPP(1)) .GE. 1) THEN
 
67
        LP=SIGN(1,LPP(1))
 
68
        G1=PDG2PDF(ABS(LPP(1)),0*LP,XBK(1),DSQRT(Q2FACT(1)))
 
69
      ENDIF
 
70
      IF (ABS(LPP(2)) .GE. 1) THEN
 
71
        LP=SIGN(1,LPP(2))
 
72
        D2=PDG2PDF(ABS(LPP(2)),1*LP,XBK(2),DSQRT(Q2FACT(2)))
 
73
        S2=PDG2PDF(ABS(LPP(2)),3*LP,XBK(2),DSQRT(Q2FACT(2)))
 
74
      ENDIF
 
75
      PD(0) = 0D0
 
76
      IPROC = 0
 
77
      IPROC=IPROC+1  ! g d > t t~ d
 
78
      PD(IPROC) = G1*D2
 
79
      IPROC=IPROC+1  ! g s > t t~ s
 
80
      PD(IPROC) = G1*S2
 
81
      DO I=1,IPROC
 
82
        IF (NINCOMING.EQ.2) THEN
 
83
          LUM = LUM + PD(I) * CONV
 
84
        ELSE
 
85
          LUM = LUM + PD(I)
 
86
        ENDIF
 
87
      ENDDO
 
88
      RETURN
 
89
      END
 
90