diff options
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/common/1d.maple')
-rw-r--r-- | src/GeneralizedPolynomial-Uniform/common/1d.maple | 142 |
1 files changed, 0 insertions, 142 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/common/1d.maple b/src/GeneralizedPolynomial-Uniform/common/1d.maple deleted file mode 100644 index 41c18d8..0000000 --- a/src/GeneralizedPolynomial-Uniform/common/1d.maple +++ /dev/null @@ -1,142 +0,0 @@ -# Maple code to compute common coefficients for all 1d interpolation schemes -# $Header$ - -################################################################################ - -# -# generic stuff for 1d, cube, size=2 -# - -data_list_1d_size2 := map(data_var_name, posn_list_1d_size2, "data_"); -coeffs_list_1d_size2 := map(coeff_name, posn_list_1d_size2, "coeff_"); - -print_name_list_dcl(data_list_1d_size2, "fp", - "1d.cube.size2/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size2, "fp", - "1d.cube.size2/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size2, "data->data_", - "1d.cube.size2/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size2, - "coeffs->coeff_", "data->data_", - "1d.cube.size2/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size2, - "factor * coeffs->coeff_", - "1d.cube.size2/store-coeffs.c"); - -################################################################################ - -# -# generic stuff for 1d, cube, size=3 -# - -data_list_1d_size3 := map(data_var_name, posn_list_1d_size3, "data_"); -coeffs_list_1d_size3 := map(coeff_name, posn_list_1d_size3, "coeff_"); - -print_name_list_dcl(data_list_1d_size3, "fp", - "1d.cube.size3/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size3, "fp", - "1d.cube.size3/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size3, "data->data_", - "1d.cube.size3/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size3, - "coeffs->coeff_", "data->data_", - "1d.cube.size3/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size3, - "factor * coeffs->coeff_", - "1d.cube.size3/store-coeffs.c"); - -################################################################################ - -# -# generic stuff for 1d, cube, size=4 -# - -data_list_1d_size4 := map(data_var_name, posn_list_1d_size4, "data_"); -coeffs_list_1d_size4 := map(coeff_name, posn_list_1d_size4, "coeff_"); - -print_name_list_dcl(data_list_1d_size4, "fp", - "1d.cube.size4/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size4, "fp", - "1d.cube.size4/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size4, "data->data_", - "1d.cube.size4/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size4, - "coeffs->coeff_", "data->data_", - "1d.cube.size4/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size4, - "factor * coeffs->coeff_", - "1d.cube.size4/store-coeffs.c"); - -################################################################################ - -# -# generic stuff for 1d, cube, size=5 -# - -data_list_1d_size5 := map(data_var_name, posn_list_1d_size5, "data_"); -coeffs_list_1d_size5 := map(coeff_name, posn_list_1d_size5, "coeff_"); - -print_name_list_dcl(data_list_1d_size5, "fp", - "1d.cube.size5/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size5, "fp", - "1d.cube.size5/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size5, "data->data_", - "1d.cube.size5/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size5, - "coeffs->coeff_", "data->data_", - "1d.cube.size5/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size5, - "factor * coeffs->coeff_", - "1d.cube.size5/store-coeffs.c"); - -################################################################################ - -# -# generic stuff for 1d, cube, size=6 -# - -data_list_1d_size6 := map(data_var_name, posn_list_1d_size6, "data_"); -coeffs_list_1d_size6 := map(coeff_name, posn_list_1d_size6, "coeff_"); - -print_name_list_dcl(data_list_1d_size6, "fp", - "1d.cube.size6/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size6, "fp", - "1d.cube.size6/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size6, "data->data_", - "1d.cube.size6/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size6, - "coeffs->coeff_", "data->data_", - "1d.cube.size6/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size6, - "factor * coeffs->coeff_", - "1d.cube.size6/store-coeffs.c"); - -################################################################################ - -# -# generic stuff for 1d, cube, size=7 -# - -data_list_1d_size7 := map(data_var_name, posn_list_1d_size7, "data_"); -coeffs_list_1d_size7 := map(coeff_name, posn_list_1d_size7, "coeff_"); - -print_name_list_dcl(data_list_1d_size7, "fp", - "1d.cube.size7/data-dcl.h"); -print_name_list_dcl(coeffs_list_1d_size7, "fp", - "1d.cube.size7/coeffs-dcl.h"); - -print_fetch_data(posn_list_1d_size7, "data->data_", - "1d.cube.size7/fetch-data.c"); -print_evaluate_molecule(posn_list_1d_size7, - "coeffs->coeff_", "data->data_", - "1d.cube.size7/evaluate-molecule.c"); -print_store_coeffs(posn_list_1d_size7, - "factor * coeffs->coeff_", - "1d.cube.size7/store-coeffs.c"); - -################################################################################ |