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
114 IF (imixpp(205).NE.0) parm(3,15) = -0.110
115 IF (imixpp(207).NE.0) parm(3,16) = -0.038
116 IF (imixpp(209).NE.0) parm(3,17) = 0.00
117 IF (imixpp(211).NE.0) parm(3,18) = 0.00
118 IF (imixpp(201).NE.0) parm(3,19) = 1.0
119 IF (imixpp(203).NE.0) parm(3,20) = 0.8
120 IF (imixpp(213).NE.0) parm(3,21) = -0.110
121 IF (imixpp(215).NE.0) parm(3,22) = -0.110
123 print *,
' KORB: rho/rhop -> pi-pi0 mixing:'
124 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
125 print *,
' KORB: rhop =',parm(1,15),parm(2,15),parm(3,15)
126 print *,
' KORB: K*/K*prime -> Kpi mixing:'
127 print *,
' KORB: kstp =',parm(1,16),parm(2,16),parm(3,16)
128 print *,
' KORB: a1/a1prime -> 3pi, KKpi mixing:'
129 print *,
' KORB: a1 =',parm(1,10),parm(2,10)
130 print *,
' KORB: a1prim=',parm(1,17),parm(2,17),parm(3,17)
131 print *,
' KORB: K1A/K1B -> Kpipi mixing:'
132 print *,
' KORB: K1A =',parm(1,19),parm(2,19),parm(3,19)
133 print *,
' KORB: K1B =',parm(1,20),parm(2,20),parm(3,20)
134 print *,
' KORB: rho/rhop/rhopp -> 4pi mixing:'
135 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
136 print *,
' KORB: rhopp =',parm(1,21),parm(2,21),parm(3,21)
137 print *,
' KORB: rhoppp=',parm(1,22),parm(2,22),parm(3,22)
153 IF (iplist.EQ.5)
THEN
163 print *,
' KORB: 3PI-PI0 PARAMS:',(parm(3,i),i=31,35)
164 print *,
' KORB: PI-3PI0 PARAMS:',(parm(3,i),i=36,37)
169 IF (abs(parm(3,31)-0.0000).GT.0.0001 .OR.
170 1 abs(parm(3,32)-0.1242).GT.0.0001 .OR.
171 1 abs(parm(3,33)-0.1604).GT.0.0001 .OR.
172 1 abs(parm(3,34)-0.2711).GT.0.0001 .OR.
173 1 abs(parm(3,35)-0.4443).GT.0.0001 )
THEN
176 parm(3,38) = 6.9673671e-14
179 IF (abs(parm(3,36)-0.0000).GT.0.0001 .OR.
180 1 abs(parm(3,37)-1.0000).GT.0.0001 )
THEN
183 parm(3,39) = 3.5374880e-13
190 parm(3,44) = -0.20+3.1416
222 IF (c1270.EQ.0.AND.c1402.EQ.0.)
THEN
227 a1270_kspi = sqrt(0.16)
228 a1270_krho = sqrt(0.42)
229 a1402_kspi = sqrt(0.94)
230 a1402_krho = sqrt(0.03)
235 parm(3,81) = c1270*a1270_kspi*cg1
236 parm(3,82) = c1402*a1402_kspi*cg1
237 parm(3,83) = c1270*a1270_krho*cg1
238 parm(3,84) = c1402*a1402_krho*cg1
239 parm(3,85) = c1270*a1270_kspi*cg2
240 parm(3,86) = c1402*a1402_kspi*cg2
241 parm(3,87) = c1270*a1270_krho*cg2
242 parm(3,88) = c1402*a1402_krho*cg2
248 IF (if1.GE.1 .AND. if1.LE.4 .AND. if2.GE.1 .AND. if2.LE.100)
THEN
252 IF (if1.EQ.4.AND.jak1.EQ.5)
THEN
256 ELSE IF (if2.EQ.1)
THEN
259 IF (rrr(1).LT.bra1)
THEN
266 ELSEIF (if1.EQ.4.AND.jak1.EQ.7)
THEN
270 ELSE IF (if2.EQ.3)
THEN
273 IF (rrr(1).LT.brks)
THEN