From a07489dec7a4e1153624e158a2c5f2837b9247de Mon Sep 17 00:00:00 2001 From: jthorn Date: Sun, 6 Jul 2003 11:16:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: http://svn.aei.mpg.de/numrel/AEIThorns/AEILocalInterp/trunk@3 0f49ee68-0e4f-0410-9b9c-b2c123ded7ef --- .../3d.cube.order1.smooth0/coeffs-I.compute.c | 34 ++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 src/Lagrange-maximum-degree/3d.coeffs/3d.cube.order1.smooth0/coeffs-I.compute.c (limited to 'src/Lagrange-maximum-degree/3d.coeffs/3d.cube.order1.smooth0/coeffs-I.compute.c') diff --git a/src/Lagrange-maximum-degree/3d.coeffs/3d.cube.order1.smooth0/coeffs-I.compute.c b/src/Lagrange-maximum-degree/3d.coeffs/3d.cube.order1.smooth0/coeffs-I.compute.c new file mode 100644 index 0000000..f4187d3 --- /dev/null +++ b/src/Lagrange-maximum-degree/3d.coeffs/3d.cube.order1.smooth0/coeffs-I.compute.c @@ -0,0 +1,34 @@ +fp t8; +fp t2; +fp t7; +fp t4; +fp t13; +fp t1; +fp t6; +fp t12; +fp t11; +fp t10; +fp t5; +fp t9; +fp t3; + t8 = RATIONAL(1.0,4.0); + t2 = t8*y; + t7 = RATIONAL(-1.0,4.0); + t4 = t7*z; + t13 = t2+t4; + t1 = t8*z; + t6 = t7*y; + t12 = t1+t6; + t11 = t1+t2; + t10 = t4+t6; + t5 = t7*x; + t9 = t5+t8; + t3 = t8*x; + coeffs_I->coeff_0_0_0 = t5+RATIONAL(1.0,2.0)+t10; + coeffs_I->coeff_p1_0_0 = t8+t3+t10; + coeffs_I->coeff_0_p1_0 = t9+t13; + coeffs_I->coeff_p1_p1_0 = t3+t13; + coeffs_I->coeff_0_0_p1 = t9+t12; + coeffs_I->coeff_p1_0_p1 = t3+t12; + coeffs_I->coeff_0_p1_p1 = t5+t11; + coeffs_I->coeff_p1_p1_p1 = t3+t7+t11; -- cgit v1.2.3