| /phasta/shapeFunction/src/ |
| 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 119 t10 = t6*t6; in Bn() 120 f = t2+20.0/9.0*t1*t*t4+5.0/3.0*t1*t6+10.0/21.0*t*t6*t4+5.0/126.0*t10; in Bn() 150 t10 = t6*t6; in Bn() 151 f = t2+20.0/11.0*t1*s*t4+12.0/11.0*t1*t6+8.0/33.0*s*t6*t4+t10/66; in Bn() 234 t10 = t8*t8; in Bn() 235 f = (t1+6.0/13.0*t2*s+t4/26)*(t6*t+12.0/7.0*t6*t8+6.0/7.0*t*t10+4.0/ in Bn() 236 35.0*t10*t8); in Bn() 243 t10 = s+r-1.0; in Bn() 244 t12 = t10*t10; in Bn() [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 70 t10 = t5*t5; in EnDrv() 71 t11 = t10*s; in EnDrv() 72 t12 = t10*r; in EnDrv() 83 t10 = t6*r*t1*s; in EnDrv() 88 drv[0] = -28.0*t3+392.0*t5-1470.0*t7+1960.0*t10-980.0*t12+168.0*t14-7.0* in EnDrv() 90 drv[1] = 7.0*t3-168.0*t5+980.0*t7-1960.0*t10+1470.0*t12-392.0*t14+28.0* in EnDrv() 101 t10 = t7*r; in EnDrv() 102 t11 = t10*t3; in EnDrv() 107 t18 = t12*t10; in EnDrv() [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 215 t10 = s*t4; in BnDrv() 218 t9+12.0/55.0*t10+8.0/495.0*t11; in BnDrv() 220 12.0/55.0*t10+8.0/495.0*t11; in BnDrv() 221 drv[2] = t8+12.0/11.0*t9+18.0/55.0*t10+4.0/165.0*t11; in BnDrv() 254 t10 = t8*t1; in BnDrv() 255 t12 = t10*(6.0/5.0*t+3.0/5.0*s+3.0/5.0*r-3.0/5.0); in BnDrv() 258 drv[2] = t10*(2.0*t+6.0/5.0*s+6.0/5.0*r-6.0/5.0); in BnDrv() 345 t10 = t6*t6; in BnDrv() 346 t11 = 30.0/11.0*t2+60.0/11.0*t5+40.0/11.0*t7+10.0/11.0*t9+5.0/77.0*t10; 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 183 t10 = 3.0*t1*t3-9.0/4.0*t5+9.0/20.0*t6-3.0/140.0*t1-3.0/2.0*r*t3+6.0/5.0* in FnDrv() 189 drv[0] = t10; in FnDrv() 199 t10 = 4.0*t2*t3-3.0/2.0*t5+t2/10-15.0/4.0*t1*t3+3.0/2.0*t7-3.0/28.0*t1+r* in FnDrv() 202 drv[0] = t10; in FnDrv() 249 t10 = 2.0*r*t3-10.0/3.0*t5+100.0/51.0*t7-25.0/51.0*t8+5.0/102.0*t9-r/714- in FnDrv() 255 drv[0] = t10; in FnDrv() 266 t10 = r*t5; in FnDrv() 270 80.0/51.0*t10-10.0/17.0*t11+4.0/51.0*t12-r/357+2.0/17.0*t3-5.0/34.0*t5+t2/17-s in FnDrv() 274 +40.0/17.0*t7-10.0/17.0*t8+2.0/51.0*t1+8.0/17.0*t10-15.0/34.0*t11+2.0/17.0*t12- in FnDrv() [all …]
|
| 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 50 t10 = t5*t5; in En() 51 f = t2*s-15.0*t2*r+50.0*t5*t1*s-50.0*t5*r*t1+15.0*t10*s-t10*r; in En() 66 t10 = t7*r; in En() 68 f = t3*t2-28.0*r*t3*t1+196.0*t7*t3*s-490.0*t10*t3+490.0*t12*t2-196.0* in En() 69 t12*r*t1+28.0*t12*t7*s-t12*t10; in En() 77 t10 = t7*r; 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() 89 t10 = t6*r; in En() [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 378 t10 = t2*s; in Fn() 379 f = r*t3-36.0/11.0*r*t6+48.0/11.0*r*t8-168.0/55.0*r*t10+252.0/209.0*r* in Fn() 381 -24.0/55.0*t8+336.0/1045.0*t10-28.0/209.0*t2+112.0/3553.0*t5-14.0/3553.0*t1+4.0 in Fn() 407 t10 = t2*s; in Fn() 408 t21 = 6.0/77.0*r*t3-5.0/11.0*t6*t7+27.0/209.0*r*t2-9.0/55.0*r*t10+15.0/ in Fn() 409 11.0*t6*t2-21.0/11.0*t6*t10+t6*t3-1.0/1492260.0-10.0/209.0*r*t7+15.0/209.0*t6* in Fn() 410 t1+12.0/3553.0*t5*s-6.0/11.0*t5*t3+12.0/11.0*t5*t10-9.0/11.0*t5*t2; in Fn() 412 30.0/3553.0*t1*r-9.0/14212.0*r*s+6.0/1045.0*t10+20.0/10659.0*t7-t2/209+s/35530+ in Fn() 439 t10 = t4*t4; in Fn() [all …]
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fRHSonly | 104 c$$$ t10 = t9**2 105 c$$$ t11 = nu*t10 112 c$$$ t40 = t10*t9 115 c$$$ t47 = t10*t46 117 c$$$ #8-24.D0*t22*t6+120.D0*t25*t6-287.D0*t11*t5*t1-140.D0*t33*t10+14.D0 121 c$$$ t62 = t10*y 123 c$$$ t80 = 120.D0*t52*t10-32.D0*t55*t47+56.D0*t33*t47+30.D0*t11*t5-216. 125 c$$$ #-20.D0*t25*t5-20.D0*t43*t10+36.D0*t43*t62 129 c$$$ t109 = 112.D0*t55*t40+80.D0*t55*t10-12.D0*t86*t6-275.D0*t86*t89+57 133 c$$$ #8.D0*t52*t40-24.D0*t52*t46-686.D0*t3*t92+2.D0*t86*t5-40.D0*t39*t10 [all …]
|
| H A D | e3source.fimplicit | 104 c$$$ t10 = t9**2 105 c$$$ t11 = nu*t10 112 c$$$ t40 = t10*t9 115 c$$$ t47 = t10*t46 117 c$$$ #8-24.D0*t22*t6+120.D0*t25*t6-287.D0*t11*t5*t1-140.D0*t33*t10+14.D0 121 c$$$ t62 = t10*y 123 c$$$ t80 = 120.D0*t52*t10-32.D0*t55*t47+56.D0*t33*t47+30.D0*t11*t5-216. 125 c$$$ #-20.D0*t25*t5-20.D0*t43*t10+36.D0*t43*t62 129 c$$$ t109 = 112.D0*t55*t40+80.D0*t55*t10-12.D0*t86*t6-275.D0*t86*t89+57 133 c$$$ #8.D0*t52*t40-24.D0*t52*t46-686.D0*t3*t92+2.D0*t86*t5-40.D0*t39*t10 [all …]
|