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