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

Dirty fix of the otherwise non-literal arrays.

This commit is contained in:
Marek Nečada 2020-11-26 11:09:15 +02:00
parent a66dd24f89
commit 1e5418e7d0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
qpms/scatsystem.c
View File

@ -2102,6 +2102,9 @@ qpms_errno_t qpms_scatsysw_scattered_field_basis(
ssw->wavenumber, where); ssw->wavenumber, where);
} }
const qpms_uvswfi_t ELDIPILIST[] = {6, 10, 14};
#define DIPSPECN 3 // We have three basis vectors #define DIPSPECN 3 // We have three basis vectors
// Evaluates the regular electric dipole waves in the origin. The returned // Evaluates the regular electric dipole waves in the origin. The returned
// value is not to be freed as in the usual case. // value is not to be freed as in the usual case.
@ -2110,11 +2113,15 @@ static inline const qpms_vswf_set_spec_t qpms_fill_regdipoles_0(
// bspec containing only electric dipoles // bspec containing only electric dipoles
const qpms_vswf_set_spec_t dipspec = { const qpms_vswf_set_spec_t dipspec = {
.n = DIPSPECN, .n = DIPSPECN,
#if 0
.ilist = (qpms_uvswfi_t[]){ .ilist = (qpms_uvswfi_t[]){
qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, -1, 1), qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, -1, 1),
qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, 0, 1), qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, 0, 1),
qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, +1, 1), qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, +1, 1),
}, },
#else
.ilist = ELDIPILIST,
#endif
.lMax=1, .lMax_M=0, .lMax_N=1, .lMax_L=-1, .lMax=1, .lMax_M=0, .lMax_N=1, .lMax_L=-1,
.capacity=0, .capacity=0,
.norm = normalisation, .norm = normalisation,