← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to models/sm_v4/printout.f

  • Committer: olivier Mattelaer
  • Date: 2017-12-12 21:11:08 UTC
  • mfrom: (274.1.52 2.6.1)
  • Revision ID: olivier.mattelaer@uclouvain.be-20171212211108-xfh9rt0j9c9m6nxp
pass to 2.6.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
models/sm_v4/printout.f
1
 
      subroutine printout
2
 
      implicit none
3
 
c
4
 
c     local
5
 
c
6
 
      integer i,iformat
7
 
      character*2 ab(2)
8
 
      real*8 ene
9
 
      double precision  Zero, One, Two, Three, Four, Half, Rt2
10
 
      parameter( Zero = 0.0d0, One = 1.0d0, Two = 2.0d0 )
11
 
c
12
 
c     include
13
 
c
14
 
      include 'coupl.inc'
15
 
c
16
 
c     Common to lh_readin and printout
17
 
c
18
 
      double precision  alpha, gfermi, alfas
19
 
      double precision  mtMS,mbMS,mcMS,mtaMS!MSbar masses
20
 
      double precision  Vud,Vus             !CKM matrix elements
21
 
      common/values/    alpha,gfermi,alfas,   
22
 
     &                  mtMS,mbMS,mcMS,mtaMS,
23
 
     &                  Vud
24
 
c
25
 
c output all info
26
 
c
27
 
 10   format( 1x,a,f7.3,' GeV        ',a,f7.4,' GeV' )
28
 
 11   format( 1x,a,f10.7,2x,f10.7,a,f10.7,2x,f10.7 )
29
 
 12   format( 1x,a,f6.2,a )
30
 
 13   format( 1x,a,f6.4,a )
31
 
 14   format( 1x,2(a,f10.7,', ',f10.7) )
32
 
 15   format( 1x,a,f9.5,a )
33
 
 16   format( 1x,a,f7.5 )
34
 
 17   format( 1x,a,f8.4 )
35
 
 18   format( 1x,a,f8.4,' GeV' )
36
 
 19   format( 1x,a,f6.4,a,f6.4 )
37
 
 20   format( 1x,a,f11.5,1x,f11.5 )
38
 
 21   format( 1x,a,f8.4,' GeV',1x,a,f8.4,' GeV' )
39
 
 22   format( 1x,a,f10.8,a,f6.4 )
40
 
 23   format( 1x,a,f8.4)
41
 
 24   format( 1x,a,f7.3,' GeV        ',a,f7.4,' GeV  (calc @ LO)')
42
 
 
43
 
 
44
 
      write(*,*) '*****************************************************'
45
 
      write(*,*) '*                    MadEvent                       *'
46
 
      write(*,*) '*        --------------------------------           *'
47
 
      write(*,*) '*          http://madgraph.hep.uiuc.edu             *'        
48
 
      write(*,*) '*          http://madgraph.phys.ucl.ac.be           *'
49
 
      write(*,*) '*          http://madgraph.roma2.infn.it            *'
50
 
      write(*,*) '*        --------------------------------           *'        
51
 
      write(*,*) '*                                                   *'
52
 
      write(*,*) '*         INTEGRATION CHANNEL LOG FILE              *'
53
 
      write(*,*) '*                                                   *'
54
 
      write(*,*) '*****************************************************'
55
 
      write(6,*)
56
 
      write(*,*) '*****************************************************'
57
 
      write(*,*) '*          SUMMARY OF THE SM PARAMETERS             *'
58
 
      write(*,*) '*****************************************************'
59
 
      write(6,*)
60
 
      write(6,*)  ' EW Params            '
61
 
      write(6,*)  '----------------------'
62
 
      write(6,23) ' GF (10^-5*GeV^-2) ',gfermi*1d5
63
 
      write(6,23) ' 1/alpha           ',1d0/alpha
64
 
      write(6,23) ' M_Z   (GeV)       ',zmass
65
 
      write(6,*)
66
 
      write(6,*)
67
 
      write(6,*)  'Boson masses and widths:'
68
 
      write(6,*)  '------------------------'
69
 
      write(6,*)
70
 
      write(6,24) 'Z mass  =  ',zmass, 'Z width  = ',zwidth
71
 
      write(6,24) 'W mass  =  ',wmass, 'W width  = ',wwidth
72
 
      write(6,24) 'H mass  =  ',hmass, 'H width  = ',hwidth
73
 
      write(6,*)
74
 
      write(6,*)  'Fermion masses and widths:'
75
 
      write(6,*)  '--------------------------'
76
 
      write(6,*)
77
 
      write(6,24) 'top    mass  =  ', tmass, 'top    width  = ', twidth
78
 
      write(6,10) 'bottom mass  =  ', bmass, 'bottom width  = ', Zero
79
 
      write(6,10) 'charm  mass  =  ', cmass, 'charm  width  = ', Zero
80
 
      write(6,10) 'tau    mass  =  ', lmass, 'tau    width  = ', Zero
81
 
      write(6,*)  'all other quark and lepton masses set to zero'
82
 
      write(6,*)
83
 
      write(6,*) 'Boson couplings:'
84
 
      write(6,*) '----------------'
85
 
      write(6,*)
86
 
      write(6,20) 'gwwa  = ', gwwa
87
 
      write(6,20) 'gwwz  = ', gwwz
88
 
      write(6,20) 'gwwh  = ', gwwh
89
 
      write(6,20) 'gzzh  = ', gzzh
90
 
      write(6,20) 'ghhh  = ', ghhh
91
 
      write(6,*)
92
 
      write(6,20) 'gwwhh = ', gwwhh
93
 
      write(6,20) 'gzzhh = ', gzzhh
94
 
      write(6,20) 'ghhhh = ', ghhhh
95
 
      write(6,*)
96
 
      write(6,*) 'FFV couplings:'
97
 
      write(6,*) '--------------'
98
 
      write(6,*)
99
 
      write(6,11) 'gal(L)   =  ',gal(1), '    gal(R)   =  ',gal(2)
100
 
      write(6,11) 'gau(L)   =  ',gau(1), '    gau(R)   =  ',gau(2)
101
 
      write(6,11) 'gad(L)   =  ',gad(1), '    gad(R)   =  ',gad(2)
102
 
      write(6,*)
103
 
      write(6,11) 'gwf(L)   =  ',gwf(1), '    gwf(R)   =  ',gwf(2)
104
 
      write(6,*)
105
 
      write(6,11) 'gzn(L)   =  ',gzn(1), '    gzn(R)   =  ',gzn(2)
106
 
      write(6,11) 'gzl(L)   =  ',gzl(1), '    gzl(R)   =  ',gzl(2)
107
 
      write(6,11) 'gzu(L)   =  ',gzu(1), '    gzu(R)   =  ',gzu(2)
108
 
      write(6,11) 'gzd(L)   =  ',gzd(1), '    gzd(R)   =  ',gzd(2)
109
 
      write(6,*)
110
 
      write(6,*) 'FFH couplings:'
111
 
      write(6,*) '--------------'
112
 
      write(6,*)
113
 
      write(6,14) 'gHtop(L) =  ',ghtop(1), '    gHtop(R) =  ',ghtop(2)
114
 
      write(6,14) 'gHbot(L) =  ',ghbot(1), '    gHbot(R) =  ',ghbot(2)
115
 
      write(6,14) 'gHcha(L) =  ',ghcha(1), '    gHcha(R) =  ',ghcha(2)
116
 
      write(6,14) 'gHtau(L) =  ',ghtau(1), '    gHtau(R) =  ',ghtau(2)
117
 
      write(6,*)
118
 
      write(6,*) 'Strong couplings:'
119
 
      write(6,*) '-----------------'
120
 
      write(6,*)
121
 
      write(6,14) 'gg(1)    =  ',gg(1)   , '    gg(2)    =  ',gg(2)
122
 
      write(6,*)
123
 
 
124
 
      return
125
 
      end
126