From 1e5418e7d0e1c58991400239d6d9cd62d0ad3a2b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marek=20Ne=C4=8Dada?= <marek@necada.org>
Date: Thu, 26 Nov 2020 11:09:15 +0200
Subject: [PATCH] Dirty fix of the otherwise non-literal arrays.

---
 qpms/scatsystem.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/qpms/scatsystem.c b/qpms/scatsystem.c
index ba84d07..6cc0e88 100644
--- a/qpms/scatsystem.c
+++ b/qpms/scatsystem.c
@@ -2102,6 +2102,9 @@ qpms_errno_t qpms_scatsysw_scattered_field_basis(
         ssw->wavenumber, where);
 }
 
+
+const qpms_uvswfi_t ELDIPILIST[] = {6, 10, 14};
+
 #define DIPSPECN 3 // We have three basis vectors
 // Evaluates the regular electric dipole waves in the origin. The returned
 // 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
   const qpms_vswf_set_spec_t dipspec = {
     .n = DIPSPECN,
+#if  0
     .ilist = (qpms_uvswfi_t[]){
       qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, -1, 1),
       qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC,  0, 1),
       qpms_tmn2uvswfi(QPMS_VSWF_ELECTRIC, +1, 1),
     },
+#else 
+    .ilist = ELDIPILIST,
+#endif
     .lMax=1, .lMax_M=0, .lMax_N=1, .lMax_L=-1,
     .capacity=0,
     .norm = normalisation,