restore missing line removed by accident

ldeniau · ldeniau · commit 455e357c6fec · 2024-12-04T19:15:35.000+01:00
diff --git a/src/mad_tpsa_fun.c b/src/mad_tpsa_fun.c
@@ -1343,6 +1343,7 @@ FUN(wf) (const T *a, T *c)
 #ifdef MAD_CTPSA_IMPL
       q[o] = -2*(o-1)*q[o-2] - 2*a0*q[o-1];
 #endif
+      p[o] = -2*(o-1)*p[o-2] - 2*a0*p[o-1];
       ord_coef[o] = (p[o]*f0 + q[o]*I*M_2_SQRTPI)/mad_num_fact(o);
     }
 

Original file line number	Diff line number	Diff line change
`@@ -1343,6 +1343,7 @@ FUN(wf) (const T a, T c)`
`1343`	`1343`	`#ifdef MAD_CTPSA_IMPL`
`1344`	`1344`	`q[o] = -2(o-1)q[o-2] - 2a0q[o-1];`
`1345`	`1345`	`#endif`
	`1346`	`+ p[o] = -2(o-1)p[o-2] - 2a0p[o-1];`
`1346`	`1347`	`ord_coef[o] = (p[o]f0 + q[o]I*M_2_SQRTPI)/mad_num_fact(o);`
`1347`	`1348`	`}`
`1348`	`1349`