blob: 9ec77501b1444d79c6834a9ff2ceeba5651c4ab6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
/* $Header$ */
#include <math.h>
#include <limits.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#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_1d_cube30
#include "../template.h"
#define N_DIMS 1
#define MOLECULE_MIN_M -1
#define MOLECULE_MAX_M 2
#define MOLECULE_SIZE 4
/* which derivative ops do we support? */
#define HAVE_OP_I
#define HAVE_OP_DX
#define HAVE_OP_DXX
#define XYZ x
#define FP_XYZ fp x
#define STRIDE_IJK stride_i
#define JACOBIAN_MIJK_STRIDE Jacobian_mi_stride
#define DATA_STRUCT data_struct_1d_cube_size4
#define COEFFS_STRUCT coeffs_struct_1d_cube_size4
#define FETCH_DATA_REAL LocalInterp_fetch_1d_cube4_r
#define FETCH_DATA_REAL4 LocalInterp_fetch_1d_cube4_r4
#define FETCH_DATA_REAL8 LocalInterp_fetch_1d_cube4_r8
#define FETCH_DATA_REAL16 LocalInterp_fetch_1d_cube4_r16
#define FETCH_DATA_COMPLEX LocalInterp_fetch_1d_cube4_c
#define FETCH_DATA_COMPLEX8 LocalInterp_fetch_1d_cube4_c8
#define FETCH_DATA_COMPLEX16 LocalInterp_fetch_1d_cube4_c16
#define FETCH_DATA_COMPLEX32 LocalInterp_fetch_1d_cube4_c32
#define EVALUATE_MOLECULE LocalInterp_eval_1d_cube4
#define STORE_COEFFS LocalInterp_store_1d_cube4
/* note pathnames are all relative to "../template.c" */
#define COEFFS_I_COMPUTE_FILE_NAME "Lagrange/1d.coeffs/1d.cube.order3.smooth0/coeffs-I.compute.c"
#define COEFFS_DX_COMPUTE_FILE_NAME "Lagrange/1d.coeffs/1d.cube.order3.smooth0/coeffs-dx.compute.c"
#define COEFFS_DXX_COMPUTE_FILE_NAME "Lagrange/1d.coeffs/1d.cube.order3.smooth0/coeffs-dxx.compute.c"
/* actual code */
#include "../template.c"
|