diff options
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c')
-rw-r--r-- | src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c | 42 |
1 files changed, 27 insertions, 15 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c b/src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c index ddfa60b..cdeda0c 100644 --- a/src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c +++ b/src/GeneralizedPolynomial-Uniform/Lagrange/2d.cube.order1.smooth0.c @@ -9,9 +9,13 @@ #include "util_ErrorCodes.h" #include "cctk.h" #include "../InterpLocalUniform.h" +#include "../common/structs.h" +#include "../common/fetch.h" +#include "../common/evaluate.h" +#include "../common/store.h" /* function prototype */ -#define FUNCTION_NAME LocalInterp_ULagrange_2dcube_10 +#define FUNCTION_NAME LocalInterp_ULagrange_2d_cube10 #include "../template.h" #define N_DIMS 2 @@ -23,25 +27,33 @@ #define HAVE_OP_I #define HAVE_OP_DX #define HAVE_OP_DY +/* n.b. no 2nd derivatives for linear interpolation! */ -#define DATA_VAR_DCL_FILE_NAME "../common/2d.cube.size2/data-var.dcl.c" -#define DATA_VAR_ASSIGN_FILE_NAME "../common/2d.cube.size2/data-var.assign.c" +#define XYZ x, y +#define FP_XYZ fp x, fp y +#define STRIDE_IJK stride_i, stride_j +#define JACOBIAN_MIJK_STRIDE Jacobian_mi_stride, Jacobian_mj_stride -#define COEFF_I_VAR_STORE_FILE_NAME "../common/2d.cube.size2/coeff-I.store.c" -#define COEFF_DX_VAR_STORE_FILE_NAME "../common/2d.cube.size2/coeff-dx.store.c" -#define COEFF_DY_VAR_STORE_FILE_NAME "../common/2d.cube.size2/coeff-dy.store.c" +#define DATA_STRUCT data_struct_2d_cube_size2 +#define COEFFS_STRUCT coeffs_struct_2d_cube_size2 -#define COEFF_I_DCL_FILE_NAME "../common/2d.cube.size2/coeff-I.dcl.c" -#define COEFF_DX_DCL_FILE_NAME "../common/2d.cube.size2/coeff-dx.dcl.c" -#define COEFF_DY_DCL_FILE_NAME "../common/2d.cube.size2/coeff-dy.dcl.c" +#define FETCH_DATA_REAL LocalInterp_fetch_2d_cube2_r +#define FETCH_DATA_REAL4 LocalInterp_fetch_2d_cube2_r4 +#define FETCH_DATA_REAL8 LocalInterp_fetch_2d_cube2_r8 +#define FETCH_DATA_REAL16 LocalInterp_fetch_2d_cube2_r16 +#define FETCH_DATA_COMPLEX LocalInterp_fetch_2d_cube2_c +#define FETCH_DATA_COMPLEX8 LocalInterp_fetch_2d_cube2_c8 +#define FETCH_DATA_COMPLEX16 LocalInterp_fetch_2d_cube2_c16 +#define FETCH_DATA_COMPLEX32 LocalInterp_fetch_2d_cube2_c32 -#define INTERP_I_COMPUTE_FILE_NAME "../common/2d.cube.size2/interp-I.compute.c" -#define INTERP_DX_COMPUTE_FILE_NAME "../common/2d.cube.size2/interp-dx.compute.c" -#define INTERP_DY_COMPUTE_FILE_NAME "../common/2d.cube.size2/interp-dy.compute.c" +#define EVALUATE_MOLECULE LocalInterp_eval_2d_cube2 -#define COEFF_I_COMPUTE_FILE_NAME "2d.coeffs/2d.cube.order1.smooth0/coeff-I.compute.c" -#define COEFF_DX_COMPUTE_FILE_NAME "2d.coeffs/2d.cube.order1.smooth0/coeff-dx.compute.c" -#define COEFF_DY_COMPUTE_FILE_NAME "2d.coeffs/2d.cube.order1.smooth0/coeff-dy.compute.c" +#define STORE_COEFFS LocalInterp_store_2d_cube2 + +/* note pathnames are all relative to "../template.c" */ +#define COEFFS_I_COMPUTE_FILE_NAME "Lagrange/2d.coeffs/2d.cube.order1.smooth0/coeffs-I.compute.c" +#define COEFFS_DX_COMPUTE_FILE_NAME "Lagrange/2d.coeffs/2d.cube.order1.smooth0/coeffs-dx.compute.c" +#define COEFFS_DY_COMPUTE_FILE_NAME "Lagrange/2d.coeffs/2d.cube.order1.smooth0/coeffs-dy.compute.c" /* actual code */ #include "../template.c" |