QPMS
/
qpms
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename macros for old "ewald-like" sums 

Former-commit-id: 7ac883fff074a19f3418bf78179d7d7135f3fa41
This commit is contained in:
Marek Nečada 2018-08-27 01:13:37 +00:00
parent 4d039b6031
commit cd937e73eb
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
qpms/translations.c
View File

@ -493,7 +493,7 @@ void qpms_trans_calculator_free(qpms_trans_calculator *c) {
free(c->A_multipliers); free(c->A_multipliers);
free(c->B_multipliers[0]); free(c->B_multipliers[0]);
free(c->B_multipliers); free(c->B_multipliers);
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
free(c->hct); free(c->hct);
free(c->legendre0); free(c->legendre0);
#endif #endif
@ -905,7 +905,7 @@ qpms_trans_calculator
} }
free(qmaxes); free(qmaxes);
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
c->hct = hankelcoefftable_init(2*lMax+1); c->hct = hankelcoefftable_init(2*lMax+1);
c->legendre0 = malloc(gsl_sf_legendre_array_n(2*lMax+1) * sizeof(double)); c->legendre0 = malloc(gsl_sf_legendre_array_n(2*lMax+1) * sizeof(double));
if (gsl_sf_legendre_array_e(GSL_SF_LEGENDRE_NONE,2*lMax+1, if (gsl_sf_legendre_array_e(GSL_SF_LEGENDRE_NONE,2*lMax+1,
@ -1149,7 +1149,7 @@ int qpms_trans_calculator_get_AB_arrays(const qpms_trans_calculator *c,
} }
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
int qpms_trans_calculator_get_shortrange_AB_arrays_buf(const qpms_trans_calculator *c, int qpms_trans_calculator_get_shortrange_AB_arrays_buf(const qpms_trans_calculator *c,
complex double *Adest, complex double *Bdest, complex double *Adest, complex double *Bdest,
@ -1429,7 +1429,7 @@ int qpms_trans_calculator_get_2DFT_longrange_AB_arrays(const qpms_trans_calculat
lrhankel_recpart); lrhankel_recpart);
} }
#endif // LATTICESUMS #endif // LATTICESUMS_OLD
complex double qpms_trans_calculator_get_A_ext(const qpms_trans_calculator *c, complex double qpms_trans_calculator_get_A_ext(const qpms_trans_calculator *c,

8
qpms/translations.h
View File

@ -6,7 +6,7 @@
#include <stdbool.h> #include <stdbool.h>
#include <stddef.h> #include <stddef.h>
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
#include "bessels.h" #include "bessels.h"
#endif #endif
@ -45,7 +45,7 @@ typedef struct qpms_trans_calculator {
// Spherical Bessel function coefficients: // Spherical Bessel function coefficients:
// TODO // TODO
#endif #endif
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
complex double *hct; // Hankel function coefficient table complex double *hct; // Hankel function coefficient table
double *legendre0; // Zero-argument Legendre functions – this might go outside #ifdef in the end... double *legendre0; // Zero-argument Legendre functions – this might go outside #ifdef in the end...
#endif #endif
@ -91,7 +91,7 @@ int qpms_trans_calculator_get_AB_arrays_ext(const qpms_trans_calculator *c,
double kdlj_r, double kdlj_theta, double kdlj_phi, double kdlj_r, double kdlj_theta, double kdlj_phi,
int r_ge_d, int J); int r_ge_d, int J);
#ifdef LATTICESUMS #ifdef LATTICESUMS_OLD
// Short-range parts of the translation coefficients // Short-range parts of the translation coefficients
int qpms_trans_calculator_get_shortrange_AB_p(const qpms_trans_calculator *c, int qpms_trans_calculator_get_shortrange_AB_p(const qpms_trans_calculator *c,
complex double *Adest, complex double *Bdest, complex double *Adest, complex double *Bdest,
@ -116,7 +116,7 @@ int qpms_trans_calculator_get_2DFT_longrange_AB_arrays(const qpms_trans_calculat
size_t deststride, size_t srcstride, size_t deststride, size_t srcstride,
sph_t k_sph, qpms_bessel_t J /* Only J=3 valid for now */, sph_t k_sph, qpms_bessel_t J /* Only J=3 valid for now */,
qpms_l_t longrange_order_cutoff, unsigned kappa, double cv, double k0); qpms_l_t longrange_order_cutoff, unsigned kappa, double cv, double k0);
#endif // LATTICESUMS #endif // LATTICESUMS_OLD