3 REAL FUNCTION pkorb(IF1,IF2)
25 INTEGER JAK1,JAK2,JAKP,JAKM,KTOM
26 COMMON / jaki / jak1,jak2,jakp,jakm,ktom
31 REAL C1270,C1402,A1270_KSPI,A1270_KRHO,A1402_KSPI,A1402_KRHO
32 REAL CG1,CG2,R,BRA1,BRKS
120 IF (imixpp(205).NE.0) parm(3,15) = -0.110
121 IF (imixpp(207).NE.0) parm(3,16) = -0.038
122 IF (imixpp(209).NE.0) parm(3,17) = 0.00
123 IF (imixpp(211).NE.0) parm(3,18) = 0.00
124 IF (imixpp(201).NE.0) parm(3,19) = 1.0
125 IF (imixpp(203).NE.0) parm(3,20) = 0.8
126 IF (imixpp(213).NE.0) parm(3,21) = -0.110
127 IF (imixpp(215).NE.0) parm(3,22) = -0.110
129 print *,
' KORB: rho/rhop -> pi-pi0 mixing:' 130 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
131 print *,
' KORB: rhop =',parm(1,15),parm(2,15),parm(3,15)
132 print *,
' KORB: K*/K*prime -> Kpi mixing:' 133 print *,
' KORB: kstp =',parm(1,16),parm(2,16),parm(3,16)
134 print *,
' KORB: a1/a1prime -> 3pi, KKpi mixing:' 135 print *,
' KORB: a1 =',parm(1,10),parm(2,10)
136 print *,
' KORB: a1prim=',parm(1,17),parm(2,17),parm(3,17)
137 print *,
' KORB: K1A/K1B -> Kpipi mixing:' 138 print *,
' KORB: K1A =',parm(1,19),parm(2,19),parm(3,19)
139 print *,
' KORB: K1B =',parm(1,20),parm(2,20),parm(3,20)
140 print *,
' KORB: rho/rhop/rhopp -> 4pi mixing:' 141 print *,
' KORB: rho =',parm(1,9) ,parm(2,9)
142 print *,
' KORB: rhopp =',parm(1,21),parm(2,21),parm(3,21)
143 print *,
' KORB: rhoppp=',parm(1,22),parm(2,22),parm(3,22)
159 IF (iplist.EQ.5)
THEN 169 print *,
' KORB: 3PI-PI0 PARAMS:',(parm(3,i),i=31,35)
170 print *,
' KORB: PI-3PI0 PARAMS:',(parm(3,i),i=36,37)
175 IF (abs(parm(3,31)-0.0000).GT.0.0001 .OR.
176 1 abs(parm(3,32)-0.1242).GT.0.0001 .OR.
177 1 abs(parm(3,33)-0.1604).GT.0.0001 .OR.
178 1 abs(parm(3,34)-0.2711).GT.0.0001 .OR.
179 1 abs(parm(3,35)-0.4443).GT.0.0001 )
THEN 182 parm(3,38) = 6.9673671e-14
185 IF (abs(parm(3,36)-0.0000).GT.0.0001 .OR.
186 1 abs(parm(3,37)-1.0000).GT.0.0001 )
THEN 189 parm(3,39) = 3.5374880e-13
196 parm(3,44) = -0.20+3.1416
228 IF (c1270.EQ.0.AND.c1402.EQ.0.)
THEN 233 a1270_kspi = sqrt(0.16)
234 a1270_krho = sqrt(0.42)
235 a1402_kspi = sqrt(0.94)
236 a1402_krho = sqrt(0.03)
241 parm(3,81) = c1270*a1270_kspi*cg1
242 parm(3,82) = c1402*a1402_kspi*cg1
243 parm(3,83) = c1270*a1270_krho*cg1
244 parm(3,84) = c1402*a1402_krho*cg1
245 parm(3,85) = c1270*a1270_kspi*cg2
246 parm(3,86) = c1402*a1402_kspi*cg2
247 parm(3,87) = c1270*a1270_krho*cg2
248 parm(3,88) = c1402*a1402_krho*cg2
254 IF (if1.GE.1 .AND. if1.LE.4 .AND. if2.GE.1 .AND. if2.LE.100)
THEN 258 IF (if1.EQ.4.AND.jak1.EQ.5)
THEN 262 ELSE IF (if2.EQ.1)
THEN 265 IF (rrr(1).LT.bra1)
THEN 272 ELSEIF (if1.EQ.4.AND.jak1.EQ.7)
THEN 276 ELSE IF (if2.EQ.3)
THEN 279 IF (rrr(1).LT.brks)
THEN