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