1 REAL FUNCTION pkorb(IF1,IF2)
23 INTEGER jak1,jak2,jakp,jakm,ktom
24 COMMON / jaki / jak1,jak2,jakp,jakm,ktom
29 REAL c1270,c1402,a1270_kspi,a1270_krho,a1402_kspi,a1402_krho
30 REAL cg1,cg2,r,bra1,brks
118 IF (imixpp(205).NE.0) parm(3,15) = -0.110
119 IF (imixpp(207).NE.0) parm(3,16) = -0.038
120 IF (imixpp(209).NE.0) parm(3,17) = 0.00
121 IF (imixpp(211).NE.0) parm(3,18) = 0.00
122 IF (imixpp(201).NE.0) parm(3,19) = 1.0
123 IF (imixpp(203).NE.0) parm(3,20) = 0.8
124 IF (imixpp(213).NE.0) parm(3,21) = -0.110
125 IF (imixpp(215).NE.0) parm(3,22) = -0.110
127 print *,
' KORB: rho/rhop -> pi-pi0 mixing:'
128 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
129 print *,
' KORB: rhop =',parm(1,15),parm(2,15),parm(3,15)
130 print *,
' KORB: K*/K*prime -> Kpi mixing:'
131 print *,
' KORB: kstp =',parm(1,16),parm(2,16),parm(3,16)
132 print *,
' KORB: a1/a1prime -> 3pi, KKpi mixing:'
133 print *,
' KORB: a1 =',parm(1,10),parm(2,10)
134 print *,
' KORB: a1prim=',parm(1,17),parm(2,17),parm(3,17)
135 print *,
' KORB: K1A/K1B -> Kpipi mixing:'
136 print *,
' KORB: K1A =',parm(1,19),parm(2,19),parm(3,19)
137 print *,
' KORB: K1B =',parm(1,20),parm(2,20),parm(3,20)
138 print *,
' KORB: rho/rhop/rhopp -> 4pi mixing:'
139 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
140 print *,
' KORB: rhopp =',parm(1,21),parm(2,21),parm(3,21)
141 print *,
' KORB: rhoppp=',parm(1,22),parm(2,22),parm(3,22)
157 IF (iplist.EQ.5)
THEN
167 print *,
' KORB: 3PI-PI0 PARAMS:',(parm(3,i),i=31,35)
168 print *,
' KORB: PI-3PI0 PARAMS:',(parm(3,i),i=36,37)
173 IF (abs(parm(3,31)-0.0000).GT.0.0001 .OR.
174 1 abs(parm(3,32)-0.1242).GT.0.0001 .OR.
175 1 abs(parm(3,33)-0.1604).GT.0.0001 .OR.
176 1 abs(parm(3,34)-0.2711).GT.0.0001 .OR.
177 1 abs(parm(3,35)-0.4443).GT.0.0001 )
THEN
180 parm(3,38) = 6.9673671e-14
183 IF (abs(parm(3,36)-0.0000).GT.0.0001 .OR.
184 1 abs(parm(3,37)-1.0000).GT.0.0001 )
THEN
187 parm(3,39) = 3.5374880e-13
194 parm(3,44) = -0.20+3.1416
226 IF (c1270.EQ.0.AND.c1402.EQ.0.)
THEN
231 a1270_kspi = sqrt(0.16)
232 a1270_krho = sqrt(0.42)
233 a1402_kspi = sqrt(0.94)
234 a1402_krho = sqrt(0.03)
239 parm(3,81) = c1270*a1270_kspi*cg1
240 parm(3,82) = c1402*a1402_kspi*cg1
241 parm(3,83) = c1270*a1270_krho*cg1
242 parm(3,84) = c1402*a1402_krho*cg1
243 parm(3,85) = c1270*a1270_kspi*cg2
244 parm(3,86) = c1402*a1402_kspi*cg2
245 parm(3,87) = c1270*a1270_krho*cg2
246 parm(3,88) = c1402*a1402_krho*cg2
252 IF (if1.GE.1 .AND. if1.LE.4 .AND. if2.GE.1 .AND. if2.LE.100)
THEN
256 IF (if1.EQ.4.AND.jak1.EQ.5)
THEN
260 ELSE IF (if2.EQ.1)
THEN
263 IF (rrr(1).LT.bra1)
THEN
270 ELSEIF (if1.EQ.4.AND.jak1.EQ.7)
THEN
274 ELSE IF (if2.EQ.3)
THEN
277 IF (rrr(1).LT.brks)
THEN