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
119 IF (imixpp(205).NE.0) parm(3,15) = -0.110
120 IF (imixpp(207).NE.0) parm(3,16) = -0.038
121 IF (imixpp(209).NE.0) parm(3,17) = 0.00
122 IF (imixpp(211).NE.0) parm(3,18) = 0.00
123 IF (imixpp(201).NE.0) parm(3,19) = 1.0
124 IF (imixpp(203).NE.0) parm(3,20) = 0.8
125 IF (imixpp(213).NE.0) parm(3,21) = -0.110
126 IF (imixpp(215).NE.0) parm(3,22) = -0.110
128 print *,
' KORB: rho/rhop -> pi-pi0 mixing:'
129 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
130 print *,
' KORB: rhop =',parm(1,15),parm(2,15),parm(3,15)
131 print *,
' KORB: K*/K*prime -> Kpi mixing:'
132 print *,
' KORB: kstp =',parm(1,16),parm(2,16),parm(3,16)
133 print *,
' KORB: a1/a1prime -> 3pi, KKpi mixing:'
134 print *,
' KORB: a1 =',parm(1,10),parm(2,10)
135 print *,
' KORB: a1prim=',parm(1,17),parm(2,17),parm(3,17)
136 print *,
' KORB: K1A/K1B -> Kpipi mixing:'
137 print *,
' KORB: K1A =',parm(1,19),parm(2,19),parm(3,19)
138 print *,
' KORB: K1B =',parm(1,20),parm(2,20),parm(3,20)
139 print *,
' KORB: rho/rhop/rhopp -> 4pi mixing:'
140 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
141 print *,
' KORB: rhopp =',parm(1,21),parm(2,21),parm(3,21)
142 print *,
' KORB: rhoppp=',parm(1,22),parm(2,22),parm(3,22)
158 IF (iplist.EQ.5)
THEN
168 print *,
' KORB: 3PI-PI0 PARAMS:',(parm(3,i),i=31,35)
169 print *,
' KORB: PI-3PI0 PARAMS:',(parm(3,i),i=36,37)
174 IF (abs(parm(3,31)-0.0000).GT.0.0001 .OR.
175 1 abs(parm(3,32)-0.1242).GT.0.0001 .OR.
176 1 abs(parm(3,33)-0.1604).GT.0.0001 .OR.
177 1 abs(parm(3,34)-0.2711).GT.0.0001 .OR.
178 1 abs(parm(3,35)-0.4443).GT.0.0001 )
THEN
181 parm(3,38) = 6.9673671e-14
184 IF (abs(parm(3,36)-0.0000).GT.0.0001 .OR.
185 1 abs(parm(3,37)-1.0000).GT.0.0001 )
THEN
188 parm(3,39) = 3.5374880e-13
195 parm(3,44) = -0.20+3.1416
227 IF (c1270.EQ.0.AND.c1402.EQ.0.)
THEN
232 a1270_kspi = sqrt(0.16)
233 a1270_krho = sqrt(0.42)
234 a1402_kspi = sqrt(0.94)
235 a1402_krho = sqrt(0.03)
240 parm(3,81) = c1270*a1270_kspi*cg1
241 parm(3,82) = c1402*a1402_kspi*cg1
242 parm(3,83) = c1270*a1270_krho*cg1
243 parm(3,84) = c1402*a1402_krho*cg1
244 parm(3,85) = c1270*a1270_kspi*cg2
245 parm(3,86) = c1402*a1402_kspi*cg2
246 parm(3,87) = c1270*a1270_krho*cg2
247 parm(3,88) = c1402*a1402_krho*cg2
253 IF (if1.GE.1 .AND. if1.LE.4 .AND. if2.GE.1 .AND. if2.LE.100)
THEN
257 IF (if1.EQ.4.AND.jak1.EQ.5)
THEN
261 ELSE IF (if2.EQ.1)
THEN
264 IF (rrr(1).LT.bra1)
THEN
271 ELSEIF (if1.EQ.4.AND.jak1.EQ.7)
THEN
275 ELSE IF (if2.EQ.3)
THEN
278 IF (rrr(1).LT.brks)
THEN