[cvs] / MG_ME / Models / sm_nohiggs / printout.f Repository:
ViewVC logotype

Annotation of /MG_ME/Models/sm_nohiggs/printout.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : madgraph 1.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, sin2w, gfermi, alfas
19 :     double precision mtMS,mbMS,mcMS,mtaMS!MSbar masses
20 :     double precision Vud,Vus !CKM matrix elements
21 :     common/values/ alpha,sin2w,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) ' sin^2(W) ',sin2w
65 :     write(6,23) ' M_Z (GeV) ',zmass
66 :     write(6,23) ' M_W (GeV) ',wmass
67 :     write(6,*)
68 :     write(6,*)
69 :     write(6,*) 'Boson masses and widths:'
70 :     write(6,*) '------------------------'
71 :     write(6,*)
72 :     write(6,24) 'Z mass = ',zmass, 'Z width = ',zwidth
73 :     write(6,24) 'W mass = ',wmass, 'W width = ',wwidth
74 :     write(6,24) 'H mass = ',hmass, 'H width = ',hwidth
75 :     write(6,*)
76 :     write(6,*) 'Fermion masses and widths:'
77 :     write(6,*) '--------------------------'
78 :     write(6,*)
79 :     write(6,24) 'top mass = ', tmass, 'top width = ', twidth
80 :     write(6,10) 'bottom mass = ', bmass, 'bottom width = ', Zero
81 :     write(6,10) 'charm mass = ', cmass, 'charm width = ', Zero
82 :     write(6,10) 'tau mass = ', lmass, 'tau width = ', Zero
83 :     write(6,*) 'all other quark and lepton masses set to zero'
84 :     write(6,*)
85 :     write(6,*) 'Boson couplings:'
86 :     write(6,*) '----------------'
87 :     write(6,*)
88 :     write(6,20) 'gwwa = ', gwwa
89 :     write(6,20) 'gwwz = ', gwwz
90 :     write(6,20) 'gwwh = ', gwwh
91 :     write(6,20) 'gzzh = ', gzzh
92 :     write(6,20) 'ghhh = ', ghhh
93 :     write(6,*)
94 :     write(6,20) 'gwwhh = ', gwwhh
95 :     write(6,20) 'gzzhh = ', gzzhh
96 :     write(6,20) 'ghhhh = ', ghhhh
97 :     write(6,*)
98 :     write(6,*) 'FFV couplings:'
99 :     write(6,*) '--------------'
100 :     write(6,*)
101 :     write(6,11) 'gal(L) = ',gal(1), ' gal(R) = ',gal(2)
102 :     write(6,11) 'gau(L) = ',gau(1), ' gau(R) = ',gau(2)
103 :     write(6,11) 'gad(L) = ',gad(1), ' gad(R) = ',gad(2)
104 :     write(6,*)
105 :     write(6,11) 'gwf(L) = ',gwf(1), ' gwf(R) = ',gwf(2)
106 :     write(6,*)
107 :     write(6,11) 'gzn(L) = ',gzn(1), ' gzn(R) = ',gzn(2)
108 :     write(6,11) 'gzl(L) = ',gzl(1), ' gzl(R) = ',gzl(2)
109 :     write(6,11) 'gzu(L) = ',gzu(1), ' gzu(R) = ',gzu(2)
110 :     write(6,11) 'gzd(L) = ',gzd(1), ' gzd(R) = ',gzd(2)
111 :     write(6,*)
112 :     write(6,*) 'FFH couplings:'
113 :     write(6,*) '--------------'
114 :     write(6,*)
115 :     write(6,14) 'gHtop(L) = ',ghtop(1), ' gHtop(R) = ',ghtop(2)
116 :     write(6,14) 'gHbot(L) = ',ghbot(1), ' gHbot(R) = ',ghbot(2)
117 :     write(6,14) 'gHcha(L) = ',ghcha(1), ' gHcha(R) = ',ghcha(2)
118 :     write(6,14) 'gHtau(L) = ',ghtau(1), ' gHtau(R) = ',ghtau(2)
119 :     write(6,*)
120 :     write(6,*) 'Strong couplings:'
121 :     write(6,*) '-----------------'
122 :     write(6,*)
123 :     write(6,14) 'gg(1) = ',gg(1) , ' gg(2) = ',gg(2)
124 :     write(6,*)
125 :    
126 :     return
127 :     end
128 :    

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0