202   PetscReal Rp, UU, VV;  in SolKxSolution()  local
234   Rp = PetscSqrtReal((r + a) / 2.0);  in SolKxSolution()
236   UU = Rp - B;  in SolKxSolution()
237   VV = Rp + B;  in SolKxSolution()
277   t2   = B - Rp;  in SolKxSolution()
278   t4   = Rp + B;  in SolKxSolution()
280   t9   = PetscExpReal(t6 - 0.4e1 * Rp);  in SolKxSolution()
282   t16  = Rp * t1;  in SolKxSolution()
283   t18  = Rp * Rp;  in SolKxSolution()
285   t20  = t13 * Rp;  in SolKxSolution()
288   t32  = 0.8e1 * t13 * BB * kn * Rp;  in SolKxSolution()
291   t37  = Rp * Rm;  in SolKxSolution()
293   t63  = PetscExpReal(t6 - 0.2e1 * Rp);  in SolKxSolution()
299   t75  = 0.2e1 * B * Rp;  in SolKxSolution()
310   t108 = PetscExpReal(t6 - 0.3e1 * Rp - B);  in SolKxSolution()
317   t140 = PetscExpReal(t6 - Rp - B);  in SolKxSolution()
318 …Rp * (0.3e1 * t13 * B - 0.2e1 * t16 - t19 - 0.2e1 * t20 - B * t22 - t24) * AA - t32) * t35 + (0.2e…  in SolKxSolution()
320   t1   = Rp + B;  in SolKxSolution()
324   t5   = B * Rp;  in SolKxSolution()
327   t9   = Rp * Rp;  in SolKxSolution()
332   t23  = PetscExpReal(t20 - 0.4e1 * Rp);  in SolKxSolution()
333   t25  = Rp * Rm;  in SolKxSolution()
339   t45  = t3 * Rp;  in SolKxSolution()
342   t69  = PetscExpReal(t20 - 0.2e1 * Rp);  in SolKxSolution()
344   t73  = t9 * Rp;  in SolKxSolution()
349   t78  = Rp * t75;  in SolKxSolution()
356   t90  = 0.3e1 * t40 * Rp;  in SolKxSolution()
373   t132 = PetscExpReal(t20 - 0.3e1 * Rp - B);  in SolKxSolution()
378   t162 = PetscExpReal(t20 - Rp - B);  in SolKxSolution()
379 … * BB * t32 * Rp) * t38 + (0.2e1 * Rp * (0.3e1 * t40 - 0.2e1 * Rp * t7 - t44 - 0.2e1 * t45 - B * t…  in SolKxSolution()
382   t2   = B - Rp;  in SolKxSolution()
383   t4   = Rp + B;  in SolKxSolution()
388   t14  = Rp * Rp;  in SolKxSolution()
391   t17  = t16 * Rp;  in SolKxSolution()
392   t21  = Rp * t1;  in SolKxSolution()
393   t30  = 0.8e1 * t16 * BB * kn * Rp;  in SolKxSolution()
396   t35  = Rp * Rm;  in SolKxSolution()
398   t61  = PetscExpReal(-t6 - 0.2e1 * Rp);  in SolKxSolution()
404   t73  = 0.2e1 * B * Rp;  in SolKxSolution()
415   t106 = PetscExpReal(-t6 - 0.3e1 * Rp - B);  in SolKxSolution()
422   t138 = PetscExpReal(-t6 - Rp - B);  in SolKxSolution()
423 …Rp * (-B * t11 - t13 - t15 + 0.2e1 * t17 + 0.3e1 * t16 * B + 0.2e1 * t21) * AA + t30) * t33 + (-0.…  in SolKxSolution()
425   t1   = B - Rp;  in SolKxSolution()
429   t5   = B * Rp;  in SolKxSolution()
432   t9   = Rp * Rp;  in SolKxSolution()
438   t23  = Rp * Rm;  in SolKxSolution()
443   t41  = t3 * Rp;  in SolKxSolution()
447   t67  = PetscExpReal(-t20 - 0.2e1 * Rp);  in SolKxSolution()
458   t104 = PetscExpReal(-t20 - 0.3e1 * Rp - B);  in SolKxSolution()
460   t108 = t9 * Rp;  in SolKxSolution()
465   t113 = Rp * t110;  in SolKxSolution()
477   t132 = 0.3e1 * t43 * Rp;  in SolKxSolution()
483   t160 = PetscExpReal(-t20 - Rp - B);  in SolKxSolution()
484 …* BB * t30 * Rp) * t36 + (-0.2e1 * Rp * (-B * t8 - B * t7 - t40 + 0.2e1 * t41 + 0.3e1 * t43 + 0.2e…  in SolKxSolution()
487   t2   = Rp * Rp;  in SolKxSolution()
491   t9   = PetscExpReal(-0.4e1 * Rp);  in SolKxSolution()
493   t22  = PetscExpReal(-0.2e1 * Rp);  in SolKxSolution()