diff --git a/qpms/scatsystem.c b/qpms/scatsystem.c
index 58cc9ca..23f8fcc 100644
--- a/qpms/scatsystem.c
+++ b/qpms/scatsystem.c
@@ -2096,6 +2096,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.
@@ -2104,11 +2107,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,