← Back to branch summary

~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fks_loonly/%SubProcesses%P0_uux_ttx%rescale_alpha_tagged.f

  • Committer: olivier-mattelaer
  • Date: 2021-11-12 09:29:31 UTC
  • mfrom: (967.1.15 3.3.0)
  • Revision ID: olivier-mattelaer-20211112092931-4ec9qfzgxkeovqog
version 3.3.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/IOExportFKSTest/test_pptt_fks_loonly/%SubProcesses%P0_uux_ttx%rescale_alpha_tagged.f
 
1
      DOUBLE PRECISION FUNCTION GET_RESCALE_ALPHA_FACTOR(NTAG,QED_POW)
 
2
C     returns the power of ratios of alpha needed to compensate 
 
3
C     for the presence of external tagged photons
 
4
C     It is automatically written, and it detects whether the
 
5
C     starting model is in the Gmu or alpha0 scheme.
 
6
C     ntag is the number of tagged photons, qed_pow the power of gweak
 
7
C     of the contribution considered
 
8
      IMPLICIT NONE
 
9
      INTEGER NTAG, QED_POW
 
10
      INCLUDE '../../Source/MODEL/input.inc'
 
11
 
 
12
      GET_RESCALE_ALPHA_FACTOR = 1D0
 
13
      IF (NTAG.EQ.0) RETURN
 
14
 
 
15
      GET_RESCALE_ALPHA_FACTOR = 1D0
 
16
 
 
17
      RETURN
 
18
      END
 
19
 
 
20
 
 
21
      DOUBLE PRECISION FUNCTION GET_VIRTUAL_A0GMU_CONV(QED_POW, NTAGPH
 
22
     $ , IVIRT, BORN_WGT)
 
23
C     returns the piece to compensate the a0<>Gmu change of scheme for
 
24
C      the
 
25
C     virtuals (single pole if ivirt = 1, finite if ivirt = 0
 
26
      IMPLICIT NONE
 
27
      INTEGER QED_POW, NTAGPH, IVIRT
 
28
      DOUBLE PRECISION BORN_WGT
 
29
      INCLUDE '../../Source/MODEL/input.inc'
 
30
 
 
31
      IF (IVIRT.EQ.1) THEN
 
32
          ! single 
 
33
        GET_VIRTUAL_A0GMU_CONV = 0D0
 
34
      ELSE IF (IVIRT.EQ.0) THEN
 
35
          ! finite part
 
36
        GET_VIRTUAL_A0GMU_CONV = 0D0
 
37
      ELSE
 
38
        WRITE(*,*) 'Error get_virtual_a0Gmu_conv: Invalid ivirt', IVIRT
 
39
      ENDIF
 
40
 
 
41
      RETURN
 
42
      END
 
43