| /phasta/shapeFunction/src/ |
| H A D | En.c | 19 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t18; in En() local 78 t13 = t7*t7; in En() 79 t21 = t13*t13; in En() 80 f = t3-36.0*r*t2*t4+336.0*t7*t2*t1-1176.0*t10*t2*s+1764.0*t13*t2-1176.0 in En() 81 *t13*r*t4+336.0*t13*t7*t1-36.0*t13*t10*s+t21; in En() 90 t13 = t6*t6; in En() 91 t22 = t13*t13; in En() 92 f = t3*s-45.0*t3*r+540.0*t6*t2*t7-2520.0*t10*t2*t1+5292.0*t13*t2*s in En() 93 -5292.0*t13*r*t2+2520.0*t13*t6*t7-540.0*t13*t10*t1+45.0*t22*s-t22*r; in En() 102 t13 = t7*t7; in En() [all …]
|
| H A D | EnDrv.c | 18 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in EnDrv() local 104 t13 = t12*t2; in EnDrv() 108 drv[0] = -36.0*t4+672.0*t6-3528.0*t9+7056.0*t11-5880.0*t13+2016.0*t15 in EnDrv() 110 drv[1] = 8.0*t4-252.0*t6+2016.0*t9-5880.0*t11+7056.0*t13-3528.0*t15+672.0 in EnDrv() 123 t13 = t7*t7; in EnDrv() 124 t14 = t13*t2; in EnDrv() 125 t16 = t13*r*t4; in EnDrv() 126 t18 = t13*t7*t1; in EnDrv() 127 t20 = t13*t10*s; in EnDrv() 128 t21 = t13*t13; in EnDrv() [all …]
|
| H A D | Bn.c | 21 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in Bn() local 412 t13 = t11*t11; in Bn() 414 t11*t9+6.0/7.0*t*t13+4.0/35.0*t13*t11); in Bn() 423 t13 = s+r-1.0; in Bn() 424 t15 = t13*t13; in Bn() 426 6.0/5.0*t*t13+3.0/10.0*t15); in Bn() 460 t13 = t9*t9; in Bn() 462 t4*t9+10.0/21.0*t*t9*t7+5.0/126.0*t13); in Bn() 630 t13 = t9*t9; in Bn() 632 39.0*t2*t13+56.0/143.0*t1*t13*t6+28.0/715.0*t*t13*t9+8.0/6435.0*t13*t11; in Bn() [all …]
|
| H A D | BnDrv.c | 20 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in BnDrv() local 364 t13 = t*t6; in BnDrv() 365 t15 = t11*(20.0/9.0*t3+10.0/3.0*t12+10.0/7.0*t13+10.0/63.0*t8); in BnDrv() 369 drv[2] = t11*(4.0*t3+20.0/3.0*t12+10.0/3.0*t13+10.0/21.0*t8); in BnDrv() 412 t13 = t1*t5; in BnDrv() 416 3.0*t11+40.0/39.0*t12+20.0/39.0*t13+40.0/429.0*t14+2.0/429.0*t15; in BnDrv() 418 40.0/39.0*t12+20.0/39.0*t13+40.0/429.0*t14+2.0/429.0*t15; in BnDrv() 419 drv[2] = t11+20.0/13.0*t12+10.0/13.0*t13+20.0/143.0*t14+t15/143; in BnDrv() 445 t13 = t*t6; in BnDrv() 446 t15 = t11*(20.0/9.0*t3+10.0/3.0*t12+10.0/7.0*t13+10.0/63.0*t8); in BnDrv() [all …]
|
| H A D | FnDrv.c | 19 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in FnDrv() local 169 t13 = 4.0*t9*t4-15.0/4.0*t9*t1+t9*s-t9/14-3.0/2.0*t5+3.0/2.0*t6-3.0/7.0* in FnDrv() 173 drv[1] = t13; in FnDrv() 269 t13 = 3.0*t1*t3-10.0/3.0*t6+20.0/17.0*t7-5.0/34.0*t8+t1/204-4.0/3.0*r*t3+ in FnDrv() 276 drv[0] = t13; in FnDrv() 289 t13 = r*s; in FnDrv() 291 -15.0/34.0*t10+t1/51+40.0/51.0*r*t4-10.0/17.0*t12+2.0/17.0*t13-2.0/357.0*r-5.0/ in FnDrv() 295 34.0*t2+20.0/17.0*t9-10.0/17.0*t10+t1/17-5.0/34.0*t12+4.0/51.0*t13-r/119+t3/204 in FnDrv() 309 t13 = 5.0*t2*t3-5.0/3.0*t5+5.0/51.0*t2-20.0/3.0*t6*t3+40.0/17.0*t8-5.0/ in FnDrv() 315 drv[0] = t13; in FnDrv() [all …]
|
| H A D | Fn.c | 20 double t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18; in Fn() local 422 t13 = t1*s; in Fn() 426 4389.0*r*t13+15.0/1463.0*t15*s-30.0/77.0*t6*t2-10.0/77.0*t15*t1+50.0/77.0*t15* in Fn() 427 t13+20.0/77.0*t6*t4+300.0/1463.0*t6*t13; in Fn() 430 /298452.0*s-50.0/77.0*t7*t13+50.0/74613.0*t13+r/74613+20.0/74613.0*t7; in Fn() 734 t13 = t7*t7; in Fn() 737 325.0*t2*t10+882.0/1495.0*t2*t7+t2*t13-3.0/106234700.0+36.0/7475.0*t15-6.0/ in Fn() 738 1562275.0*t1-72.0/1562275.0*r*s-54.0/325.0*r*t15+18.0/325.0*r*t13+1512.0/ in Fn() 739 1562275.0*r*t3-504.0/325.0*t1*t8+432.0/325.0*t1*t15-6.0/13.0*t1*t13-756.0/ in Fn() 743 756.0/16445.0*r*t7-126.0/82225.0*t7-t13/650-504.0/82225.0*t8+336.0/82225.0*t10 in Fn() [all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | e3source.f | 183 t13 = y**2 184 t20 = t13**2 185 t21 = t20-t13 188 t37 = t13*y 190 & *t13-2)+(24*x-12)*t21)-64*(t26/2-2*t3*t7+3*t30-2*t4+t3
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 157 c$$$ t13 = (-1.D0+y)**2 159 c$$$ fza = -2.D0*om1*x*t3*(2.D0+x-10.D0*t5+7.D0*t5*x)*t10*t13-4.D0*om2* 183 t13 = y**2 184 t20 = t13**2 185 t21 = t20-t13 188 t37 = t13*y 190 & *t13-2)+(24*x-12)*t21)-64*(t26/2-2*t3*t7+3*t30-2*t4+t3
|
| H A D | e3source.fimplicit | 157 c$$$ t13 = (-1.D0+y)**2 159 c$$$ fza = -2.D0*om1*x*t3*(2.D0+x-10.D0*t5+7.D0*t5*x)*t10*t13-4.D0*om2* 183 t13 = y**2 184 t20 = t13**2 185 t21 = t20-t13 188 t37 = t13*y 190 & *t13-2)+(24*x-12)*t21)-64*(t26/2-2*t3*t7+3*t30-2*t4+t3
|