# 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");

################################################################################