290   t35  = PetscCosReal(t34);  in SolKxSolution()
303   t81  = PetscCosReal(t80);  in SolKxSolution()
306   t89  = PetscCosReal(t88);  in SolKxSolution()
336   t38  = PetscCosReal(t37);  in SolKxSolution()
366   t106 = PetscCosReal(t105);  in SolKxSolution()
370   t115 = PetscCosReal(t114);  in SolKxSolution()
395   t33  = PetscCosReal(t32);  in SolKxSolution()
408   t79  = PetscCosReal(t78);  in SolKxSolution()
411   t87  = PetscCosReal(t86);  in SolKxSolution()
441   t36  = PetscCosReal(t35);  in SolKxSolution()
451   t77  = PetscCosReal(t76);  in SolKxSolution()
454   t85  = PetscCosReal(t84);  in SolKxSolution()
492   t15  = PetscCosReal(0.2e1 * Rm);  in SolKxSolution()
502   t2  = PetscCosReal(t1);  in SolKxSolution()
506   t13 = PetscCosReal(t12);  in SolKxSolution()
511   t3  = PetscCosReal(t2);  in SolKxSolution()
516   t25 = PetscCosReal(t24);  in SolKxSolution()
534   t37  = PetscCosReal(t20);  in SolKxSolution()
544   t106 = PetscCosReal(t90);  in SolKxSolution()
551   t7  = PetscCosReal(t6);  in SolKxSolution()
558   t19 = PetscCosReal(t18);  in SolKxSolution()
589   t35  = PetscCosReal(t19);  in SolKxSolution()
599   t101 = PetscCosReal(t86);  in SolKxSolution()
616   t35 = PetscCosReal(t19);  in SolKxSolution()
625   t96 = PetscCosReal(t83);  in SolKxSolution()
632   sum5 += u5 * PetscCosReal(km * z); /* pressure */  in SolKxSolution()
633   sum6 += u6 * PetscCosReal(km * z); /* zz total stress */  in SolKxSolution()
635   u1 *= PetscCosReal(km * z); /* x velocity */  in SolKxSolution()
640   u3 *= PetscCosReal(km * z); /* xx total stress */  in SolKxSolution()
815   t57  = PetscCosReal(t34);  in SolCxSolution()
1086   t88  = PetscCosReal(t30);  in SolCxSolution()
1283   t3   = PetscCosReal(t2);  in SolCxSolution()
1627   t37  = PetscCosReal(t7);  in SolCxSolution()
2060   t73  = PetscCosReal(t5);  in SolCxSolution()
2380   t8   = PetscCosReal(t7);  in SolCxSolution()
2837   t146 = PetscCosReal(nx * 0.3141592654e1 * x);  in SolCxSolution()
2878   t101 = PetscCosReal(nx * 0.3141592654e1 * x);  in SolCxSolution()
2938 …u5 = (-2 * Z * nz * PETSC_PI * u2 - u3 * 2 * nz * PETSC_PI) * PetscCosReal(nz * PETSC_PI * z); /* …  in SolCxSolution()
2940 …u6 = (u3 * 2 * nz * PETSC_PI + 4 * Z * nz * PETSC_PI * u2) * PetscCosReal(nz * PETSC_PI * z); /* z…  in SolCxSolution()
2944   u1 *= PetscCosReal(nz * PETSC_PI * z); /* x velocity */  in SolCxSolution()
2948   u3 *= 2 * nz * PETSC_PI * PetscCosReal(nz * PETSC_PI * z); /* xx stress */  in SolCxSolution()