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

Fix allocated array sizes. 

Former-commit-id: 7183f7f104df3af58d994d5e485b59cebb4365b3
This commit is contained in:
Marek Nečada 2020-03-21 16:31:41 +02:00
parent 35ffc61faf
commit aa82b3a01a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
qpms/vswf.c
View File

@ -611,14 +611,13 @@ csphvec_t qpms_eval_uvswf(const qpms_vswf_set_spec_t *bspec,
const complex double *coeffs, const csph_t kr, const complex double *coeffs, const csph_t kr,
const qpms_bessel_t btyp) { const qpms_bessel_t btyp) {
QPMS_UNTESTED; QPMS_UNTESTED;
const qpms_l_t lMax = bspec->lMax;
complex double *cM = NULL, *cN = NULL, *cL = NULL, cL00 = 0; complex double *cM = NULL, *cN = NULL, *cL = NULL, cL00 = 0;
if (bspec->lMax_L > 0) if (bspec->lMax_L > 0)
QPMS_CRASHING_CALLOC(cL, lMax, sizeof(complex double)); QPMS_CRASHING_CALLOC(cL, bspec->n, sizeof(complex double));
if (bspec->lMax_M > 0) if (bspec->lMax_M > 0)
QPMS_CRASHING_CALLOC(cM, lMax, sizeof(complex double)); QPMS_CRASHING_CALLOC(cM, bspec->n, sizeof(complex double));
if (bspec->lMax_N > 0) if (bspec->lMax_N > 0)
QPMS_CRASHING_CALLOC(cN, lMax, sizeof(complex double)); QPMS_CRASHING_CALLOC(cN, bspec->n, sizeof(complex double));
for (size_t i = 0; i < bspec->n; ++i) { for (size_t i = 0; i < bspec->n; ++i) {
if (bspec->ilist[i] == 0) // L00, needs special care if (bspec->ilist[i] == 0) // L00, needs special care
cL00 = coeffs[i]; cL00 = coeffs[i];
@ -644,7 +643,7 @@ csphvec_t qpms_eval_uvswf(const qpms_vswf_set_spec_t *bspec,
} }
} }
} }
csphvec_t result = qpms_eval_vswf_csph(kr, cL, cM, cN, lMax, btyp, bspec->norm); csphvec_t result = qpms_eval_vswf_csph(kr, cL, cM, cN, bspec->lMax, btyp, bspec->norm);
free(cM); free(cN); free(cL); free(cM); free(cN); free(cL);
if(cL00) if(cL00)
result = csphvec_add(result, result = csphvec_add(result,