← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to hml/hml/ssprnt.f

  • Committer: useakat at gmail
  • Date: 2012-10-01 07:45:50 UTC
  • mfrom: (4.1.13 gg_3g_cfmc_dev)
  • Revision ID: useakat@gmail.com-20121001074550-zs09eu30khm4yvyx
independent ver.

Show diffs side-by-side

added added

removed removed

Lines of Context:
hml/hml/ssprnt.f
 
1
      SUBROUTINE SSPRNT
 
2
 
 
3
      IMPLICIT NONE
 
4
 
 
5
      INCLUDE 'sscons.inc'
 
6
      INCLUDE 'ssptab.inc'
 
7
 
 
8
      CHARACTER*10 CTGPAR(5)/
 
9
     &     'm_0',
 
10
     &     'mu',
 
11
     &     'M_2',
 
12
     &     'tan beta',
 
13
     &     'm(H_PS)'/
 
14
 
 
15
      CHARACTER*10 CMSSW(NPSW)/
 
16
     &     'chi_1^-',
 
17
     &     'chi_2^-'/
 
18
      CHARACTER*10 CMSSZ(NPSZ)/
 
19
     &     'chi_1^0',
 
20
     &     'chi_2^0',
 
21
     &     'chi_3^0',
 
22
     &     'chi_4^0'/
 
23
      CHARACTER*10 CMSSF(NPSF)/
 
24
     &     'nu~',
 
25
     &     'e~_L',
 
26
     &     'e~_R',
 
27
     &     'u~_L',
 
28
     &     'u~_R',
 
29
     &     'd~_L',
 
30
     &     'd~_R'/
 
31
      CHARACTER*10 CMSSH(NPSH)/
 
32
     &     'h^0',
 
33
     &     'H^0',
 
34
     &     'P^0',
 
35
     &     'H^-'/
 
36
 
 
37
      CHARACTER*20 CTISW(NPSW)/
 
38
     &     'chi_1^- decay width',
 
39
     &     'chi_2^- decay width'/
 
40
      CHARACTER*20 CDWSW(NPMDSW)/
 
41
     &     'chi_1^- + Z^0',
 
42
     &     'chi_1^- + H_1^0',
 
43
     &     'chi_1^- + H_2^0',
 
44
     &     'chi_1^- + H_3^0',
 
45
     &     'chi_1^0 + W^-',
 
46
     &     'chi_2^0 + W^-',
 
47
     &     'chi_3^0 + W^-',
 
48
     &     'chi_4^0 + W^-',
 
49
     &     'chi_1^0 + H^-',
 
50
     &     'chi_2^0 + H^-',
 
51
     &     'chi_3^0 + H^-',
 
52
     &     'chi_4^0 + H^-',
 
53
     &     'chi_1^- + nu nu^bar',
 
54
     &     'chi_1^- + e e^bar',
 
55
     &     'chi_1^- + u u^bar',
 
56
     &     'chi_1^- + d d^bar',
 
57
     &     'chi_1^0 + e nu^bar',
 
58
     &     'chi_1^0 + u d^bar',
 
59
     &     'chi_2^0 + e nu^bar',
 
60
     &     'chi_2^0 + u d^bar',
 
61
     &     'chi_3^0 + e nu^bar',
 
62
     &     'chi_3^0 + u d^bar',
 
63
     &     'chi_4^0 + e nu^bar',
 
64
     &     'chi_4^0 + u d^bar',
 
65
     &     16*' '/
 
66
      CHARACTER*20 CTISZ(NPSZ)/
 
67
     &     'chi_1^0 decay width',
 
68
     &     'chi_2^0 decay width',
 
69
     &     'chi_3^0 decay width',
 
70
     &     'chi_4^0 decay width'/
 
71
      CHARACTER*20 CDWSZ(NPMDSZ)/
 
72
     &     'chi_1^- + W^+',
 
73
     &     'chi_2^- + W^+',
 
74
     &     'chi_1^- + H^+',
 
75
     &     'chi_2^- + H^+',
 
76
     &     'chi_1^0 + H_1^0',
 
77
     &     'chi_1^0 + H_2^0',
 
78
     &     'chi_1^0 + H_3^0',
 
79
     &     'chi_2^0 + H_1^0',
 
80
     &     'chi_2^0 + H_2^0',
 
81
     &     'chi_2^0 + H_3^0',
 
82
     &     'chi_3^0 + H_1^0',
 
83
     &     'chi_3^0 + H_2^0',
 
84
     &     'chi_3^0 + H_3^0',
 
85
     &     'chi_4^0 + H_1^0',
 
86
     &     'chi_4^0 + H_2^0',
 
87
     &     'chi_4^0 + H_3^0',
 
88
     &     'chi_1^0 + Z^0',
 
89
     &     'chi_2^0 + Z^0',
 
90
     &     'chi_3^0 + Z^0',
 
91
     &     'chi_4^0 + Z^0',
 
92
     &     'chi_1^0 + nu nu^bar',
 
93
     &     'chi_1^0 + e e^bar',
 
94
     &     'chi_1^0 + u u^bar',
 
95
     &     'chi_1^0 + d d^bar',
 
96
     &     'chi_2^0 + nu nu^bar',
 
97
     &     'chi_2^0 + e e^bar',
 
98
     &     'chi_2^0 + u u^bar',
 
99
     &     'chi_2^0 + d d^bar',
 
100
     &     'chi_3^0 + nu nu^bar',
 
101
     &     'chi_3^0 + e e^bar',
 
102
     &     'chi_3^0 + u u^bar',
 
103
     &     'chi_3^0 + d d^bar',
 
104
     &     'chi_4^0 + nu nu^bar',
 
105
     &     'chi_4^0 + e e^bar',
 
106
     &     'chi_4^0 + u u^bar',
 
107
     &     'chi_4^0 + d d^bar',
 
108
     &     'chi_1^- + e nu^bar',
 
109
     &     'chi_1^- + u d^bar',
 
110
     &     'chi_2^- + e nu^bar',
 
111
     &     'chi_2^- + u d^bar'/
 
112
 
 
113
      CHARACTER*20 CTISF(NPSF)/
 
114
     &     'nu~ decay width',
 
115
     &     'e~_L decay width',
 
116
     &     'e~_R decay width',
 
117
     &     'u~_L decay width',
 
118
     &     'u~_R decay width',
 
119
     &     'd~_L decay width',
 
120
     &     'd~_R decay width'/
 
121
      CHARACTER*20 CDWSF(NPMDSF,NPSF)/
 
122
     &     'e^- + chi_1^+',
 
123
     &     'e^- + chi_2^+',
 
124
     &     'nu  + chi_1^0',
 
125
     &     'nu  + chi_2^0',
 
126
     &     'nu  + chi_3^0',
 
127
     &     'nu  + chi_4^0',
 
128
     &     'nu  + chi_1^+',
 
129
     &     'nu  + chi_2^+',
 
130
     &     'e^- + chi_1^0',
 
131
     &     'e^- + chi_2^0',
 
132
     &     'e^- + chi_3^0',
 
133
     &     'e^- + chi_4^0',
 
134
     &     'nu  + chi_1^+',
 
135
     &     'nu  + chi_2^+',
 
136
     &     'e^- + chi_1^0',
 
137
     &     'e^- + chi_2^0',
 
138
     &     'e^- + chi_3^0',
 
139
     &     'e^- + chi_4^0',
 
140
     &     'd   + chi_1^+',
 
141
     &     'd   + chi_2^+',
 
142
     &     'u   + chi_1^0',
 
143
     &     'u   + chi_2^0',
 
144
     &     'u   + chi_3^0',
 
145
     &     'u   + chi_4^0',
 
146
     &     'd   + chi_1^+',
 
147
     &     'd   + chi_2^+',
 
148
     &     'u   + chi_1^0',
 
149
     &     'u   + chi_2^0',
 
150
     &     'u   + chi_3^0',
 
151
     &     'u   + chi_4^0',
 
152
     &     'u   + chi_1^+',
 
153
     &     'u   + chi_2^+',
 
154
     &     'd   + chi_1^0',
 
155
     &     'd   + chi_2^0',
 
156
     &     'd   + chi_3^0',
 
157
     &     'd   + chi_4^0',
 
158
     &     'u   + chi_1^+',
 
159
     &     'u   + chi_2^+',
 
160
     &     'd   + chi_1^0',
 
161
     &     'd   + chi_2^0',
 
162
     &     'd   + chi_3^0',
 
163
     &     'd   + chi_4^0'/
 
164
 
 
165
      INTEGER ISW,ISZ,ISF,ISH,IMD
 
166
      INTEGER LUN
 
167
      PARAMETER (LUN=6)
 
168
 
 
169
      WRITE(LUN,'(5X,A)') '==================='
 
170
      WRITE(LUN,'(5X,A)') '  SUSY Parameters  '
 
171
      WRITE(LUN,'(5X,A)') '==================='
 
172
      WRITE(LUN,'()')
 
173
      WRITE(LUN,'(8X,A)') '<< Inputs >>'
 
174
      WRITE(LUN,'()')
 
175
      WRITE(LUN,'(11X,A,F10.3)') CTGPAR(1),AM0
 
176
      WRITE(LUN,'(11X,A,F10.3)') CTGPAR(2),AMU
 
177
      WRITE(LUN,'(11X,A,F10.3)') CTGPAR(3),AM2
 
178
      WRITE(LUN,'(11X,A,F10.3)') CTGPAR(4),TANB
 
179
      WRITE(LUN,'(11X,A,F10.3)') CTGPAR(5),AMPS
 
180
      WRITE(LUN,'()')
 
181
      WRITE(LUN,'(8X,A)') '<< Masses >>'
 
182
      WRITE(LUN,'()')
 
183
      DO 100 ISW=1,NPSW
 
184
         WRITE(LUN,'(11X,A,F10.3)') CMSSW(ISW),SWM(ISW)
 
185
 100  CONTINUE 
 
186
      WRITE(LUN,'()')
 
187
      DO 200 ISZ=1,NPSZ
 
188
         WRITE(LUN,'(11X,A,F10.3)') CMSSZ(ISZ),SZM(ISZ)
 
189
 200  CONTINUE 
 
190
      WRITE(LUN,'()')
 
191
      DO 300 ISF=1,NPSF
 
192
         WRITE(LUN,'(11X,A,F10.3)') CMSSF(ISF),SFM(ISF)
 
193
 300  CONTINUE 
 
194
      WRITE(LUN,'()')
 
195
      DO 400 ISH=1,NPSH
 
196
         WRITE(LUN,'(11X,A,F10.3)') CMSSH(ISH),SHM(ISH)
 
197
 400  CONTINUE 
 
198
 
 
199
      WRITE(LUN,'()')
 
200
      WRITE(LUN,'(8X,A)') '<< Decay Widths >>'
 
201
      DO 500 ISW=1,NPSW
 
202
      WRITE(LUN,'(/11X,A,5X,1PD12.6)') 
 
203
     &        CTISW(ISW),GMSW(ISW)
 
204
      IF(GMSW(ISW).GT.0.D0) THEN
 
205
      DO 510 IMD=1,NMDSW(ISW)
 
206
         IF(DCWSW(IMD,ISW).GT.0.D0) 
 
207
     &      WRITE(LUN,'(14X,A,2X,1PD12.6)') CDWSW(IMD),DCWSW(IMD,ISW)
 
208
 510  CONTINUE 
 
209
      END IF
 
210
 500  CONTINUE 
 
211
      WRITE(LUN,'()')
 
212
      DO 600 ISZ=1,NPSZ
 
213
      WRITE(LUN,'(/11X,A,5X,1PD12.6)') 
 
214
     &        CTISZ(ISZ),GMSZ(ISZ)
 
215
      IF(GMSZ(ISZ).GT.0.D0) THEN
 
216
      DO 610 IMD=1,NMDSZ(ISZ)
 
217
         IF(DCWSZ(IMD,ISZ).GT.0.D0) 
 
218
     &      WRITE(LUN,'(14X,A,2X,1PD12.6)') CDWSZ(IMD),DCWSZ(IMD,ISZ)
 
219
 610  CONTINUE 
 
220
      END IF
 
221
 600  CONTINUE 
 
222
      WRITE(LUN,'()')
 
223
      DO 700 ISF=1,NPSF
 
224
      WRITE(LUN,'(/11X,A,5X,1PD12.6)') 
 
225
     &        CTISF(ISF),GMSF(ISF)
 
226
      IF(GMSF(ISF).GT.0.D0) THEN
 
227
      DO 710 IMD=1,NMDSF(ISF)
 
228
         IF(DCWSF(IMD,ISF).GT.0.D0) 
 
229
     &      WRITE(LUN,'(14X,A,2X,1PD12.6)') 
 
230
     &        CDWSF(IMD,ISF),DCWSF(IMD,ISF)
 
231
 710  CONTINUE 
 
232
      END IF
 
233
 700  CONTINUE
 
234
 
 
235
      RETURN
 
236
      END