← Back to branch summary

~alifson/chiralityflow/trunk

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_uxu_ttx%parton_lum_1.f

  • Committer: andrew.lifson at lu
  • Date: 2021-09-01 15:34:39 UTC
  • Revision ID: andrew.lifson@thep.lu.se-20210901153439-7fasjhav4cp4m88r
testing a new repository of a madgraph folder

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fksrealew/%SubProcesses%P0_uxu_ttx%parton_lum_1.f
 
1
      SUBROUTINE DLUM_1(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: u~ u > t t~ g [ real = QCD QED ] QCD^2<=4 QED^2<=2
 
11
C     Process: c~ c > t t~ g [ 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 CX1,UX1
 
35
      DOUBLE PRECISION U2,C2
 
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 CX1,UX1/2*1D0/
 
57
      DATA U2,C2/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
        CX1=PDG2PDF(ABS(LPP(1)),-4*LP,XBK(1),DSQRT(Q2FACT(1)))
 
69
        UX1=PDG2PDF(ABS(LPP(1)),-2*LP,XBK(1),DSQRT(Q2FACT(1)))
 
70
      ENDIF
 
71
      IF (ABS(LPP(2)) .GE. 1) THEN
 
72
        LP=SIGN(1,LPP(2))
 
73
        U2=PDG2PDF(ABS(LPP(2)),2*LP,XBK(2),DSQRT(Q2FACT(2)))
 
74
        C2=PDG2PDF(ABS(LPP(2)),4*LP,XBK(2),DSQRT(Q2FACT(2)))
 
75
      ENDIF
 
76
      PD(0) = 0D0
 
77
      IPROC = 0
 
78
      IPROC=IPROC+1  ! u~ u > t t~ g
 
79
      PD(IPROC) = UX1*U2
 
80
      IPROC=IPROC+1  ! c~ c > t t~ g
 
81
      PD(IPROC) = CX1*C2
 
82
      DO I=1,IPROC
 
83
        IF (NINCOMING.EQ.2) THEN
 
84
          LUM = LUM + PD(I) * CONV
 
85
        ELSE
 
86
          LUM = LUM + PD(I)
 
87
        ENDIF
 
88
      ENDDO
 
89
      RETURN
 
90
      END
 
91