1
PyGSL_sf_ufunc_Id_m__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2 void PyGSL_sf_ufunc_Id_m__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3 {
4 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
5 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
6
7 gsl_mode_t tmpi1;
8 int tmpr2;
9 gsl_sf_result tmpo3;
10 FUNC_MESS_BEGIN();
11
12 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
13
14 /* arg 'double q(const) x'*/
15 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'gsl_mode_t q(const) mode'*/
16 tmpr2 = ((int (*)(double, gsl_mode_t, gsl_sf_result *)) func)(/* double q(const) x */ (*((double *) ip0)), /* gsl_mode_t q(const) mode */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
17 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
18 *((long *) rp2) = 0L;
19 *((long *) rp2) = (long) tmpr2;
20 *((double *) op3) = (double) tmpo3.val;
21 *((double *) op4) = (double) tmpo3.err;
22 continue;
23
24 fail:
25 FUNC_MESS("FAIL");
26
27 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
28
29 *((int *) rp2) = INT_MIN;
30 *((double *) op3) = _PyGSL_NAN;
31 *((double *) op4) = _PyGSL_NAN;
32 }
33 FUNC_MESS_END();
34
35 } /* PyGSL_sf_ufunc_Id_m__Rl__Ord */
36
PyGSL_sf_ufunc_Id_m__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)37 void PyGSL_sf_ufunc_Id_m__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
38 {
39 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
40 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
41 double tmpi0;
42
43
44 gsl_sf_result tmpo3;
45 FUNC_MESS_BEGIN();
46
47 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
48
49 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
50 /* arg 'gsl_mode_t q(const) mode'*/
51 *((int *) rp2) = ((int (*)(double, gsl_mode_t, gsl_sf_result *)) func)(/* double q(const) x */ tmpi0, /* gsl_mode_t q(const) mode */ (*((int *) ip1)), /* gsl_sf_result p result */ &tmpo3);
52
53 *((float *) op3) = (float) tmpo3.val;
54 *((float *) op4) = (float) tmpo3.err;
55 continue;
56 }
57 FUNC_MESS_END();
58
59 } /* PyGSL_sf_ufunc_Id_m__Rl__Ord_as_minor */
60
PyGSL_sf_ufunc_Id_m__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)61 void PyGSL_sf_ufunc_Id_m__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
62 {
63 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
64 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
65
66 gsl_mode_t tmpi1;
67
68 FUNC_MESS_BEGIN();
69
70 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
71
72 /* arg 'double q(const) x'*/
73 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'gsl_mode_t mode'*/
74 *((double *) rp2) = ((double (*)(double, gsl_mode_t)) func)(/* double q(const) x */ (*((double *) ip0)), /* gsl_mode_t mode */ tmpi1);
75
76 continue;
77
78 fail:
79 FUNC_MESS("FAIL");
80
81 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
82
83 *((double *) rp2) = _PyGSL_NAN;
84 }
85 FUNC_MESS_END();
86
87 } /* PyGSL_sf_ufunc_Id_m__Rd__O */
88
PyGSL_sf_ufunc_Id_m__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)89 void PyGSL_sf_ufunc_Id_m__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
90 {
91 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
92 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
93 double tmpi0;
94
95 double tmpr2;
96 FUNC_MESS_BEGIN();
97
98 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
99
100 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
101 /* arg 'gsl_mode_t mode'*/
102 tmpr2 = ((double (*)(double, gsl_mode_t)) func)(/* double q(const) x */ tmpi0, /* gsl_mode_t mode */ (*((int *) ip1)));
103 (*((float *) rp2)) = (float) tmpr2;
104 continue;
105 }
106 FUNC_MESS_END();
107
108 } /* PyGSL_sf_ufunc_Id_m__Rd__O_as_minor */
109
PyGSL_sf_ufunc_Iui__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)110 void PyGSL_sf_ufunc_Iui__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
111 {
112 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
113 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
114 unsigned int tmpi0;
115 int tmpr1;
116 gsl_sf_result tmpo2;
117 FUNC_MESS_BEGIN();
118
119 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
120
121 if( (_PyGSL_SF_L_TO_U(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'unsigned int s'*/
122 tmpr1 = ((int (*)(unsigned int, gsl_sf_result *)) func)(/* unsigned int s */ tmpi0, /* gsl_sf_result p result */ &tmpo2);
123 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
124 *((long *) rp1) = 0L;
125 *((long *) rp1) = (long) tmpr1;
126 *((double *) op2) = (double) tmpo2.val;
127 *((double *) op3) = (double) tmpo2.err;
128 continue;
129
130 fail:
131 FUNC_MESS("FAIL");
132
133 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
134
135 *((int *) rp1) = INT_MIN;
136 *((double *) op2) = _PyGSL_NAN;
137 *((double *) op3) = _PyGSL_NAN;
138 }
139 FUNC_MESS_END();
140
141 } /* PyGSL_sf_ufunc_Iui__Rl__Ord */
142
PyGSL_sf_ufunc_Iui__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)143 void PyGSL_sf_ufunc_Iui__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
144 {
145 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
146 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
147
148
149 gsl_sf_result tmpo2;
150 FUNC_MESS_BEGIN();
151
152 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
153
154 /* arg 'unsigned int s'*/
155 *((int *) rp1) = ((int (*)(unsigned int, gsl_sf_result *)) func)(/* unsigned int s */ (*((int *) ip0)), /* gsl_sf_result p result */ &tmpo2);
156
157 *((float *) op2) = (float) tmpo2.val;
158 *((float *) op3) = (float) tmpo2.err;
159 continue;
160 }
161 FUNC_MESS_END();
162
163 } /* PyGSL_sf_ufunc_Iui__Rl__Ord_as_minor */
164
PyGSL_sf_ufunc_Iui__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)165 void PyGSL_sf_ufunc_Iui__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
166 {
167 char *ip0 = args[0], *rp1 = args[1];
168 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
169 unsigned int tmpi0;
170
171 FUNC_MESS_BEGIN();
172
173 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
174
175 if( (_PyGSL_SF_L_TO_U(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'unsigned int s'*/
176 *((double *) rp1) = ((double (*)(unsigned int)) func)(/* unsigned int s */ tmpi0);
177
178 continue;
179
180 fail:
181 FUNC_MESS("FAIL");
182
183 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
184
185 *((double *) rp1) = _PyGSL_NAN;
186 }
187 FUNC_MESS_END();
188
189 } /* PyGSL_sf_ufunc_Iui__Rd__O */
190
PyGSL_sf_ufunc_Iui__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)191 void PyGSL_sf_ufunc_Iui__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
192 {
193 char *ip0 = args[0], *rp1 = args[1];
194 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
195
196 double tmpr1;
197 FUNC_MESS_BEGIN();
198
199 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
200
201 /* arg 'unsigned int s'*/
202 tmpr1 = ((double (*)(unsigned int)) func)(/* unsigned int s */ (*((int *) ip0)));
203 (*((float *) rp1)) = (float) tmpr1;
204 continue;
205 }
206 FUNC_MESS_END();
207
208 } /* PyGSL_sf_ufunc_Iui__Rd__O_as_minor */
209
PyGSL_sf_ufunc_Id__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)210 void PyGSL_sf_ufunc_Id__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
211 {
212 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
213 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
214
215 int tmpr1;
216 gsl_sf_result tmpo2;
217 FUNC_MESS_BEGIN();
218
219 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
220
221 /* arg 'double q(const) x'*/
222 tmpr1 = ((int (*)(double, gsl_sf_result *)) func)(/* double q(const) x */ (*((double *) ip0)), /* gsl_sf_result p result */ &tmpo2);
223 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
224 *((long *) rp1) = 0L;
225 *((long *) rp1) = (long) tmpr1;
226 *((double *) op2) = (double) tmpo2.val;
227 *((double *) op3) = (double) tmpo2.err;
228 continue;
229 }
230 FUNC_MESS_END();
231
232 } /* PyGSL_sf_ufunc_Id__Rl__Ord */
233
PyGSL_sf_ufunc_Id__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)234 void PyGSL_sf_ufunc_Id__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
235 {
236 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
237 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
238 double tmpi0;
239
240 gsl_sf_result tmpo2;
241 FUNC_MESS_BEGIN();
242
243 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
244
245 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
246 *((int *) rp1) = ((int (*)(double, gsl_sf_result *)) func)(/* double q(const) x */ tmpi0, /* gsl_sf_result p result */ &tmpo2);
247
248 *((float *) op2) = (float) tmpo2.val;
249 *((float *) op3) = (float) tmpo2.err;
250 continue;
251 }
252 FUNC_MESS_END();
253
254 } /* PyGSL_sf_ufunc_Id__Rl__Ord_as_minor */
255
PyGSL_sf_ufunc_Id__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)256 void PyGSL_sf_ufunc_Id__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
257 {
258 char *ip0 = args[0], *rp1 = args[1];
259 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
260
261
262 FUNC_MESS_BEGIN();
263
264 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
265
266 /* arg 'double q(const) x'*/
267 *((double *) rp1) = ((double (*)(double)) func)(/* double q(const) x */ (*((double *) ip0)));
268
269 continue;
270 }
271 FUNC_MESS_END();
272
273 } /* PyGSL_sf_ufunc_Id__Rd__O */
274
PyGSL_sf_ufunc_Id__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)275 void PyGSL_sf_ufunc_Id__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
276 {
277 char *ip0 = args[0], *rp1 = args[1];
278 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
279 double tmpi0;
280 double tmpr1;
281 FUNC_MESS_BEGIN();
282
283 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
284
285 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
286 tmpr1 = ((double (*)(double)) func)(/* double q(const) x */ tmpi0);
287 (*((float *) rp1)) = (float) tmpr1;
288 continue;
289 }
290 FUNC_MESS_END();
291
292 } /* PyGSL_sf_ufunc_Id__Rd__O_as_minor */
293
PyGSL_sf_ufunc_Il_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)294 void PyGSL_sf_ufunc_Il_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
295 {
296 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
297 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
298 int tmpi0;
299
300 int tmpr2;
301 gsl_sf_result tmpo3;
302 FUNC_MESS_BEGIN();
303
304 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
305
306 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int n'*/
307 /* arg 'double x'*/
308 tmpr2 = ((int (*)(int, double, gsl_sf_result *)) func)(/* int n */ tmpi0, /* double x */ (*((double *) ip1)), /* gsl_sf_result p result */ &tmpo3);
309 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
310 *((long *) rp2) = 0L;
311 *((long *) rp2) = (long) tmpr2;
312 *((double *) op3) = (double) tmpo3.val;
313 *((double *) op4) = (double) tmpo3.err;
314 continue;
315
316 fail:
317 FUNC_MESS("FAIL");
318
319 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
320
321 *((int *) rp2) = INT_MIN;
322 *((double *) op3) = _PyGSL_NAN;
323 *((double *) op4) = _PyGSL_NAN;
324 }
325 FUNC_MESS_END();
326
327 } /* PyGSL_sf_ufunc_Il_d__Rl__Ord */
328
PyGSL_sf_ufunc_Il_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)329 void PyGSL_sf_ufunc_Il_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
330 {
331 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
332 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
333
334 double tmpi1;
335
336 gsl_sf_result tmpo3;
337 FUNC_MESS_BEGIN();
338
339 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
340
341 /* arg 'int n'*/
342 tmpi1 = *((float *) ip1); /* arg 'double x'*/
343 *((int *) rp2) = ((int (*)(int, double, gsl_sf_result *)) func)(/* int n */ (*((int *) ip0)), /* double x */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
344
345 *((float *) op3) = (float) tmpo3.val;
346 *((float *) op4) = (float) tmpo3.err;
347 continue;
348 }
349 FUNC_MESS_END();
350
351 } /* PyGSL_sf_ufunc_Il_d__Rl__Ord_as_minor */
352
PyGSL_sf_ufunc_Il_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)353 void PyGSL_sf_ufunc_Il_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
354 {
355 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
356 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
357 int tmpi0;
358
359
360 FUNC_MESS_BEGIN();
361
362 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
363
364 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) n'*/
365 /* arg 'double q(const) x'*/
366 *((double *) rp2) = ((double (*)(int, double)) func)(/* int q(const) n */ tmpi0, /* double q(const) x */ (*((double *) ip1)));
367
368 continue;
369
370 fail:
371 FUNC_MESS("FAIL");
372
373 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
374
375 *((double *) rp2) = _PyGSL_NAN;
376 }
377 FUNC_MESS_END();
378
379 } /* PyGSL_sf_ufunc_Il_d__Rd__O */
380
PyGSL_sf_ufunc_Il_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)381 void PyGSL_sf_ufunc_Il_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
382 {
383 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
384 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
385
386 double tmpi1;
387 double tmpr2;
388 FUNC_MESS_BEGIN();
389
390 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
391
392 /* arg 'int q(const) n'*/
393 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
394 tmpr2 = ((double (*)(int, double)) func)(/* int q(const) n */ (*((int *) ip0)), /* double q(const) x */ tmpi1);
395 (*((float *) rp2)) = (float) tmpr2;
396 continue;
397 }
398 FUNC_MESS_END();
399
400 } /* PyGSL_sf_ufunc_Il_d__Rd__O_as_minor */
401
PyGSL_sf_ufunc_Id_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)402 void PyGSL_sf_ufunc_Id_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
403 {
404 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
405 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
406
407
408 int tmpr2;
409 gsl_sf_result tmpo3;
410 FUNC_MESS_BEGIN();
411
412 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
413
414 /* arg 'double q(const) nu'*/
415 /* arg 'double q(const) x'*/
416 tmpr2 = ((int (*)(double, double, gsl_sf_result *)) func)(/* double q(const) nu */ (*((double *) ip0)), /* double q(const) x */ (*((double *) ip1)), /* gsl_sf_result p result */ &tmpo3);
417 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
418 *((long *) rp2) = 0L;
419 *((long *) rp2) = (long) tmpr2;
420 *((double *) op3) = (double) tmpo3.val;
421 *((double *) op4) = (double) tmpo3.err;
422 continue;
423 }
424 FUNC_MESS_END();
425
426 } /* PyGSL_sf_ufunc_Id_d__Rl__Ord */
427
PyGSL_sf_ufunc_Id_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)428 void PyGSL_sf_ufunc_Id_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
429 {
430 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
431 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
432 double tmpi0;
433 double tmpi1;
434
435 gsl_sf_result tmpo3;
436 FUNC_MESS_BEGIN();
437
438 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
439
440 tmpi0 = *((float *) ip0); /* arg 'double q(const) nu'*/
441 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
442 *((int *) rp2) = ((int (*)(double, double, gsl_sf_result *)) func)(/* double q(const) nu */ tmpi0, /* double q(const) x */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
443
444 *((float *) op3) = (float) tmpo3.val;
445 *((float *) op4) = (float) tmpo3.err;
446 continue;
447 }
448 FUNC_MESS_END();
449
450 } /* PyGSL_sf_ufunc_Id_d__Rl__Ord_as_minor */
451
PyGSL_sf_ufunc_Id_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)452 void PyGSL_sf_ufunc_Id_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
453 {
454 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
455 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
456
457
458
459 FUNC_MESS_BEGIN();
460
461 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
462
463 /* arg 'double q(const) nu'*/
464 /* arg 'double q(const) x'*/
465 *((double *) rp2) = ((double (*)(double, double)) func)(/* double q(const) nu */ (*((double *) ip0)), /* double q(const) x */ (*((double *) ip1)));
466
467 continue;
468 }
469 FUNC_MESS_END();
470
471 } /* PyGSL_sf_ufunc_Id_d__Rd__O */
472
PyGSL_sf_ufunc_Id_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)473 void PyGSL_sf_ufunc_Id_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
474 {
475 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
476 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
477 double tmpi0;
478 double tmpi1;
479 double tmpr2;
480 FUNC_MESS_BEGIN();
481
482 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
483
484 tmpi0 = *((float *) ip0); /* arg 'double q(const) nu'*/
485 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
486 tmpr2 = ((double (*)(double, double)) func)(/* double q(const) nu */ tmpi0, /* double q(const) x */ tmpi1);
487 (*((float *) rp2)) = (float) tmpr2;
488 continue;
489 }
490 FUNC_MESS_END();
491
492 } /* PyGSL_sf_ufunc_Id_d__Rd__O_as_minor */
493
PyGSL_sf_ufunc_Id_d__Rl__Oerd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)494 void PyGSL_sf_ufunc_Id_d__Rl__Oerd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
495 {
496 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
497 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3];
498
499
500 int tmpr2;
501 gsl_sf_result_e10 tmpo3;
502 FUNC_MESS_BEGIN();
503
504 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3){
505
506 /* arg 'double q(const) nu'*/
507 /* arg 'double q(const) x'*/
508 tmpr2 = ((int (*)(double, double, gsl_sf_result_e10 *)) func)(/* double q(const) nu */ (*((double *) ip0)), /* double q(const) x */ (*((double *) ip1)), /* gsl_sf_result_e10 p result */ &tmpo3);
509 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
510 *((long *) rp2) = 0L;
511 *((long *) rp2) = (long) tmpr2;
512 *((double *) op3) = (double) tmpo3.val;
513 *((double *) op4) = (double) tmpo3.err;
514 *((int *) op5) = (int) tmpo3.e10;
515 continue;
516 }
517 FUNC_MESS_END();
518
519 } /* PyGSL_sf_ufunc_Id_d__Rl__Oerd */
520
PyGSL_sf_ufunc_Id_d__Rl__Oerd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)521 void PyGSL_sf_ufunc_Id_d__Rl__Oerd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
522 {
523 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
524 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3];
525 double tmpi0;
526 double tmpi1;
527
528 gsl_sf_result_e10 tmpo3;
529 FUNC_MESS_BEGIN();
530
531 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3){
532
533 tmpi0 = *((float *) ip0); /* arg 'double q(const) nu'*/
534 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
535 *((int *) rp2) = ((int (*)(double, double, gsl_sf_result_e10 *)) func)(/* double q(const) nu */ tmpi0, /* double q(const) x */ tmpi1, /* gsl_sf_result_e10 p result */ &tmpo3);
536
537 *((double *) op3) = (double) tmpo3.val;
538 *((double *) op4) = (double) tmpo3.err;
539 *((int *) op5) = (int) tmpo3.e10;
540 continue;
541 }
542 FUNC_MESS_END();
543
544 } /* PyGSL_sf_ufunc_Id_d__Rl__Oerd_as_minor */
545
PyGSL_sf_ufunc_Id_ui__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)546 void PyGSL_sf_ufunc_Id_ui__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
547 {
548 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
549 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
550
551 unsigned int tmpi1;
552 int tmpr2;
553 gsl_sf_result tmpo3;
554 FUNC_MESS_BEGIN();
555
556 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
557
558 /* arg 'double nu'*/
559 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'unsigned int s'*/
560 tmpr2 = ((int (*)(double, unsigned int, gsl_sf_result *)) func)(/* double nu */ (*((double *) ip0)), /* unsigned int s */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
561 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
562 *((long *) rp2) = 0L;
563 *((long *) rp2) = (long) tmpr2;
564 *((double *) op3) = (double) tmpo3.val;
565 *((double *) op4) = (double) tmpo3.err;
566 continue;
567
568 fail:
569 FUNC_MESS("FAIL");
570
571 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
572
573 *((int *) rp2) = INT_MIN;
574 *((double *) op3) = _PyGSL_NAN;
575 *((double *) op4) = _PyGSL_NAN;
576 }
577 FUNC_MESS_END();
578
579 } /* PyGSL_sf_ufunc_Id_ui__Rl__Ord */
580
PyGSL_sf_ufunc_Id_ui__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)581 void PyGSL_sf_ufunc_Id_ui__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
582 {
583 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
584 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
585 double tmpi0;
586
587
588 gsl_sf_result tmpo3;
589 FUNC_MESS_BEGIN();
590
591 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
592
593 tmpi0 = *((float *) ip0); /* arg 'double nu'*/
594 /* arg 'unsigned int s'*/
595 *((int *) rp2) = ((int (*)(double, unsigned int, gsl_sf_result *)) func)(/* double nu */ tmpi0, /* unsigned int s */ (*((int *) ip1)), /* gsl_sf_result p result */ &tmpo3);
596
597 *((float *) op3) = (float) tmpo3.val;
598 *((float *) op4) = (float) tmpo3.err;
599 continue;
600 }
601 FUNC_MESS_END();
602
603 } /* PyGSL_sf_ufunc_Id_ui__Rl__Ord_as_minor */
604
PyGSL_sf_ufunc_Id_ui__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)605 void PyGSL_sf_ufunc_Id_ui__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
606 {
607 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
608 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
609
610 unsigned int tmpi1;
611
612 FUNC_MESS_BEGIN();
613
614 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
615
616 /* arg 'double nu'*/
617 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'unsigned int s'*/
618 *((double *) rp2) = ((double (*)(double, unsigned int)) func)(/* double nu */ (*((double *) ip0)), /* unsigned int s */ tmpi1);
619
620 continue;
621
622 fail:
623 FUNC_MESS("FAIL");
624
625 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
626
627 *((double *) rp2) = _PyGSL_NAN;
628 }
629 FUNC_MESS_END();
630
631 } /* PyGSL_sf_ufunc_Id_ui__Rd__O */
632
PyGSL_sf_ufunc_Id_ui__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)633 void PyGSL_sf_ufunc_Id_ui__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
634 {
635 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
636 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
637 double tmpi0;
638
639 double tmpr2;
640 FUNC_MESS_BEGIN();
641
642 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
643
644 tmpi0 = *((float *) ip0); /* arg 'double nu'*/
645 /* arg 'unsigned int s'*/
646 tmpr2 = ((double (*)(double, unsigned int)) func)(/* double nu */ tmpi0, /* unsigned int s */ (*((int *) ip1)));
647 (*((float *) rp2)) = (float) tmpr2;
648 continue;
649 }
650 FUNC_MESS_END();
651
652 } /* PyGSL_sf_ufunc_Id_ui__Rd__O_as_minor */
653
PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)654 void PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
655 {
656 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
657 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
658 int tmpi0;
659 int tmpi1;
660
661
662 int tmpr4;
663 gsl_sf_result tmpo5;
664 FUNC_MESS_BEGIN();
665
666 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
667
668 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) n'*/
669 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) l'*/
670 /* arg 'double q(const) Z'*/
671 /* arg 'double q(const) r'*/
672 tmpr4 = ((int (*)(int, int, double, double, gsl_sf_result *)) func)(/* int q(const) n */ tmpi0, /* int q(const) l */ tmpi1, /* double q(const) Z */ (*((double *) ip2)), /* double q(const) r */ (*((double *) ip3)), /* gsl_sf_result p result */ &tmpo5);
673 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr4, (long) tmpr4);
674 *((long *) rp4) = 0L;
675 *((long *) rp4) = (long) tmpr4;
676 *((double *) op5) = (double) tmpo5.val;
677 *((double *) op6) = (double) tmpo5.err;
678 continue;
679
680 fail:
681 FUNC_MESS("FAIL");
682
683 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
684
685 *((int *) rp4) = INT_MIN;
686 *((double *) op5) = _PyGSL_NAN;
687 *((double *) op6) = _PyGSL_NAN;
688 }
689 FUNC_MESS_END();
690
691 } /* PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord */
692
PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)693 void PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
694 {
695 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
696 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
697
698
699 double tmpi2;
700 double tmpi3;
701
702 gsl_sf_result tmpo5;
703 FUNC_MESS_BEGIN();
704
705 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
706
707 /* arg 'int q(const) n'*/
708 /* arg 'int q(const) l'*/
709 tmpi2 = *((float *) ip2); /* arg 'double q(const) Z'*/
710 tmpi3 = *((float *) ip3); /* arg 'double q(const) r'*/
711 *((int *) rp4) = ((int (*)(int, int, double, double, gsl_sf_result *)) func)(/* int q(const) n */ (*((int *) ip0)), /* int q(const) l */ (*((int *) ip1)), /* double q(const) Z */ tmpi2, /* double q(const) r */ tmpi3, /* gsl_sf_result p result */ &tmpo5);
712
713 *((float *) op5) = (float) tmpo5.val;
714 *((float *) op6) = (float) tmpo5.err;
715 continue;
716 }
717 FUNC_MESS_END();
718
719 } /* PyGSL_sf_ufunc_Il_l_d_d__Rl__Ord_as_minor */
720
PyGSL_sf_ufunc_Il_l_d_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)721 void PyGSL_sf_ufunc_Il_l_d_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
722 {
723 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
724 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
725 int tmpi0;
726 int tmpi1;
727
728
729
730 FUNC_MESS_BEGIN();
731
732 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
733
734 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) n'*/
735 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) l'*/
736 /* arg 'double q(const) Z'*/
737 /* arg 'double q(const) r'*/
738 *((double *) rp4) = ((double (*)(int, int, double, double)) func)(/* int q(const) n */ tmpi0, /* int q(const) l */ tmpi1, /* double q(const) Z */ (*((double *) ip2)), /* double q(const) r */ (*((double *) ip3)));
739
740 continue;
741
742 fail:
743 FUNC_MESS("FAIL");
744
745 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
746
747 *((double *) rp4) = _PyGSL_NAN;
748 }
749 FUNC_MESS_END();
750
751 } /* PyGSL_sf_ufunc_Il_l_d_d__Rd__O */
752
PyGSL_sf_ufunc_Il_l_d_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)753 void PyGSL_sf_ufunc_Il_l_d_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
754 {
755 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
756 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
757
758
759 double tmpi2;
760 double tmpi3;
761 double tmpr4;
762 FUNC_MESS_BEGIN();
763
764 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
765
766 /* arg 'int q(const) n'*/
767 /* arg 'int q(const) l'*/
768 tmpi2 = *((float *) ip2); /* arg 'double q(const) Z'*/
769 tmpi3 = *((float *) ip3); /* arg 'double q(const) r'*/
770 tmpr4 = ((double (*)(int, int, double, double)) func)(/* int q(const) n */ (*((int *) ip0)), /* int q(const) l */ (*((int *) ip1)), /* double q(const) Z */ tmpi2, /* double q(const) r */ tmpi3);
771 (*((float *) rp4)) = (float) tmpr4;
772 continue;
773 }
774 FUNC_MESS_END();
775
776 } /* PyGSL_sf_ufunc_Il_l_d_d__Rd__O_as_minor */
777
PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)778 void PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
779 {
780 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6], *op7 = args[7], *op8 = args[8], *op9 = args[9], *op10 = args[10], *op11 = args[11], *op12 = args[12], *op13 = args[13], *op14 = args[14];
781 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6], os7 = steps[7], os8 = steps[8], os9 = steps[9], os10 = steps[10], os11 = steps[11], os12 = steps[12], os13 = steps[13], os14 = steps[14];
782
783
784
785 int tmpi3;
786 int tmpr4;
787
788
789 gsl_sf_result tmpo7;
790 gsl_sf_result tmpo9;
791 gsl_sf_result tmpo11;
792 gsl_sf_result tmpo13;
793 FUNC_MESS_BEGIN();
794
795 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6, op7 += os7, op8 += os8, op9 += os9, op10 += os10, op11 += os11, op12 += os12, op13 += os13, op14 += os14){
796
797 /* arg 'double q(const) eta'*/
798 /* arg 'double q(const) x'*/
799 /* arg 'double q(const) lam_F'*/
800 if( (_PyGSL_SF_L_TO_I(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'int q(const) k_lam_G'*/
801 tmpr4 = ((int (*)(double, double, double, int, double *, double *, gsl_sf_result *, gsl_sf_result *, gsl_sf_result *, gsl_sf_result *)) func)(/* double q(const) eta */ (*((double *) ip0)), /* double q(const) x */ (*((double *) ip1)), /* double q(const) lam_F */ (*((double *) ip2)), /* int q(const) k_lam_G */ tmpi3, /* double p exp_G */ ((double *) op5), /* double p exp_F */ ((double *) op6), /* gsl_sf_result p Gp */ &tmpo7, /* gsl_sf_result p G */ &tmpo9, /* gsl_sf_result p Fp */ &tmpo11, /* gsl_sf_result p F */ &tmpo13);
802 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr4, (long) tmpr4);
803 *((long *) rp4) = 0L;
804 *((long *) rp4) = (long) tmpr4;
805
806
807 *((double *) op7) = (double) tmpo7.val;
808 *((double *) op8) = (double) tmpo7.err;
809 *((double *) op9) = (double) tmpo9.val;
810 *((double *) op10) = (double) tmpo9.err;
811 *((double *) op11) = (double) tmpo11.val;
812 *((double *) op12) = (double) tmpo11.err;
813 *((double *) op13) = (double) tmpo13.val;
814 *((double *) op14) = (double) tmpo13.err;
815 continue;
816
817 fail:
818 FUNC_MESS("FAIL");
819
820 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
821
822 *((int *) rp4) = INT_MIN;
823 *((double *) op5) = _PyGSL_NAN;
824 *((double *) op6) = _PyGSL_NAN;
825 *((double *) op7) = _PyGSL_NAN;
826 *((double *) op8) = _PyGSL_NAN;
827 *((double *) op9) = _PyGSL_NAN;
828 *((double *) op10) = _PyGSL_NAN;
829 *((double *) op11) = _PyGSL_NAN;
830 *((double *) op12) = _PyGSL_NAN;
831 *((double *) op13) = _PyGSL_NAN;
832 *((double *) op14) = _PyGSL_NAN;
833 }
834 FUNC_MESS_END();
835
836 } /* PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd */
837
PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)838 void PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
839 {
840 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6], *op7 = args[7], *op8 = args[8], *op9 = args[9], *op10 = args[10], *op11 = args[11], *op12 = args[12], *op13 = args[13], *op14 = args[14];
841 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6], os7 = steps[7], os8 = steps[8], os9 = steps[9], os10 = steps[10], os11 = steps[11], os12 = steps[12], os13 = steps[13], os14 = steps[14];
842 double tmpi0;
843 double tmpi1;
844 double tmpi2;
845
846
847 double tmpo5;
848 double tmpo6;
849 gsl_sf_result tmpo7;
850 gsl_sf_result tmpo9;
851 gsl_sf_result tmpo11;
852 gsl_sf_result tmpo13;
853 FUNC_MESS_BEGIN();
854
855 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6, op7 += os7, op8 += os8, op9 += os9, op10 += os10, op11 += os11, op12 += os12, op13 += os13, op14 += os14){
856
857 tmpi0 = *((float *) ip0); /* arg 'double q(const) eta'*/
858 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
859 tmpi2 = *((float *) ip2); /* arg 'double q(const) lam_F'*/
860 /* arg 'int q(const) k_lam_G'*/
861 *((int *) rp4) = ((int (*)(double, double, double, int, double *, double *, gsl_sf_result *, gsl_sf_result *, gsl_sf_result *, gsl_sf_result *)) func)(/* double q(const) eta */ tmpi0, /* double q(const) x */ tmpi1, /* double q(const) lam_F */ tmpi2, /* int q(const) k_lam_G */ (*((int *) ip3)), /* double p exp_G */ &tmpo5, /* double p exp_F */ &tmpo6, /* gsl_sf_result p Gp */ &tmpo7, /* gsl_sf_result p G */ &tmpo9, /* gsl_sf_result p Fp */ &tmpo11, /* gsl_sf_result p F */ &tmpo13);
862
863 *((float *) op5) = (float) tmpo5;
864 *((float *) op6) = (float) tmpo6;
865 *((float *) op7) = (float) tmpo7.val;
866 *((float *) op8) = (float) tmpo7.err;
867 *((float *) op9) = (float) tmpo9.val;
868 *((float *) op10) = (float) tmpo9.err;
869 *((float *) op11) = (float) tmpo11.val;
870 *((float *) op12) = (float) tmpo11.err;
871 *((float *) op13) = (float) tmpo13.val;
872 *((float *) op14) = (float) tmpo13.err;
873 continue;
874 }
875 FUNC_MESS_END();
876
877 } /* PyGSL_sf_ufunc_Id_d_d_l__Rl__Od_d_rd_rd_rd_rd_as_minor */
878
PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)879 void PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
880 {
881 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *rp6 = args[6], *op7 = args[7], *op8 = args[8];
882 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], rs6 = steps[6], os7 = steps[7], os8 = steps[8];
883 int tmpi0;
884 int tmpi1;
885 int tmpi2;
886 int tmpi3;
887 int tmpi4;
888 int tmpi5;
889 int tmpr6;
890 gsl_sf_result tmpo7;
891 FUNC_MESS_BEGIN();
892
893 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, rp6 += rs6, op7 += os7, op8 += os8){
894
895 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int two_ja'*/
896 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int two_jb'*/
897 if( (_PyGSL_SF_L_TO_I(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'int two_jc'*/
898 if( (_PyGSL_SF_L_TO_I(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'int two_ma'*/
899 if( (_PyGSL_SF_L_TO_I(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'int two_mb'*/
900 if( (_PyGSL_SF_L_TO_I(*((long *) ip5), &tmpi5)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip5), tmpi5); goto fail;} /* arg 'int two_mc'*/
901 tmpr6 = ((int (*)(int, int, int, int, int, int, gsl_sf_result *)) func)(/* int two_ja */ tmpi0, /* int two_jb */ tmpi1, /* int two_jc */ tmpi2, /* int two_ma */ tmpi3, /* int two_mb */ tmpi4, /* int two_mc */ tmpi5, /* gsl_sf_result p result */ &tmpo7);
902 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr6, (long) tmpr6);
903 *((long *) rp6) = 0L;
904 *((long *) rp6) = (long) tmpr6;
905 *((double *) op7) = (double) tmpo7.val;
906 *((double *) op8) = (double) tmpo7.err;
907 continue;
908
909 fail:
910 FUNC_MESS("FAIL");
911
912 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
913
914 *((int *) rp6) = INT_MIN;
915 *((double *) op7) = _PyGSL_NAN;
916 *((double *) op8) = _PyGSL_NAN;
917 }
918 FUNC_MESS_END();
919
920 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord */
921
PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)922 void PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
923 {
924 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *rp6 = args[6], *op7 = args[7], *op8 = args[8];
925 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], rs6 = steps[6], os7 = steps[7], os8 = steps[8];
926
927
928
929
930
931
932
933 gsl_sf_result tmpo7;
934 FUNC_MESS_BEGIN();
935
936 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, rp6 += rs6, op7 += os7, op8 += os8){
937
938 /* arg 'int two_ja'*/
939 /* arg 'int two_jb'*/
940 /* arg 'int two_jc'*/
941 /* arg 'int two_ma'*/
942 /* arg 'int two_mb'*/
943 /* arg 'int two_mc'*/
944 *((int *) rp6) = ((int (*)(int, int, int, int, int, int, gsl_sf_result *)) func)(/* int two_ja */ (*((int *) ip0)), /* int two_jb */ (*((int *) ip1)), /* int two_jc */ (*((int *) ip2)), /* int two_ma */ (*((int *) ip3)), /* int two_mb */ (*((int *) ip4)), /* int two_mc */ (*((int *) ip5)), /* gsl_sf_result p result */ &tmpo7);
945
946 *((float *) op7) = (float) tmpo7.val;
947 *((float *) op8) = (float) tmpo7.err;
948 continue;
949 }
950 FUNC_MESS_END();
951
952 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l__Rl__Ord_as_minor */
953
PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)954 void PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
955 {
956 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *rp6 = args[6];
957 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], rs6 = steps[6];
958 int tmpi0;
959 int tmpi1;
960 int tmpi2;
961 int tmpi3;
962 int tmpi4;
963 int tmpi5;
964
965 FUNC_MESS_BEGIN();
966
967 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, rp6 += rs6){
968
969 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int two_ja'*/
970 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int two_jb'*/
971 if( (_PyGSL_SF_L_TO_I(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'int two_jc'*/
972 if( (_PyGSL_SF_L_TO_I(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'int two_ma'*/
973 if( (_PyGSL_SF_L_TO_I(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'int two_mb'*/
974 if( (_PyGSL_SF_L_TO_I(*((long *) ip5), &tmpi5)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip5), tmpi5); goto fail;} /* arg 'int two_mc'*/
975 *((double *) rp6) = ((double (*)(int, int, int, int, int, int)) func)(/* int two_ja */ tmpi0, /* int two_jb */ tmpi1, /* int two_jc */ tmpi2, /* int two_ma */ tmpi3, /* int two_mb */ tmpi4, /* int two_mc */ tmpi5);
976
977 continue;
978
979 fail:
980 FUNC_MESS("FAIL");
981
982 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
983
984 *((double *) rp6) = _PyGSL_NAN;
985 }
986 FUNC_MESS_END();
987
988 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O */
989
PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)990 void PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
991 {
992 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *rp6 = args[6];
993 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], rs6 = steps[6];
994
995
996
997
998
999
1000 double tmpr6;
1001 FUNC_MESS_BEGIN();
1002
1003 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, rp6 += rs6){
1004
1005 /* arg 'int two_ja'*/
1006 /* arg 'int two_jb'*/
1007 /* arg 'int two_jc'*/
1008 /* arg 'int two_ma'*/
1009 /* arg 'int two_mb'*/
1010 /* arg 'int two_mc'*/
1011 tmpr6 = ((double (*)(int, int, int, int, int, int)) func)(/* int two_ja */ (*((int *) ip0)), /* int two_jb */ (*((int *) ip1)), /* int two_jc */ (*((int *) ip2)), /* int two_ma */ (*((int *) ip3)), /* int two_mb */ (*((int *) ip4)), /* int two_mc */ (*((int *) ip5)));
1012 (*((float *) rp6)) = (float) tmpr6;
1013 continue;
1014 }
1015 FUNC_MESS_END();
1016
1017 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l__Rd__O_as_minor */
1018
PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1019 void PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1020 {
1021 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *ip6 = args[6], *ip7 = args[7], *ip8 = args[8], *rp9 = args[9], *op10 = args[10], *op11 = args[11];
1022 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], is6 = steps[6], is7 = steps[7], is8 = steps[8], rs9 = steps[9], os10 = steps[10], os11 = steps[11];
1023 int tmpi0;
1024 int tmpi1;
1025 int tmpi2;
1026 int tmpi3;
1027 int tmpi4;
1028 int tmpi5;
1029 int tmpi6;
1030 int tmpi7;
1031 int tmpi8;
1032 int tmpr9;
1033 gsl_sf_result tmpo10;
1034 FUNC_MESS_BEGIN();
1035
1036 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, ip6 += is6, ip7 += is7, ip8 += is8, rp9 += rs9, op10 += os10, op11 += os11){
1037
1038 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int two_ja'*/
1039 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int two_jb'*/
1040 if( (_PyGSL_SF_L_TO_I(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'int two_jc'*/
1041 if( (_PyGSL_SF_L_TO_I(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'int two_jd'*/
1042 if( (_PyGSL_SF_L_TO_I(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'int two_je'*/
1043 if( (_PyGSL_SF_L_TO_I(*((long *) ip5), &tmpi5)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip5), tmpi5); goto fail;} /* arg 'int two_jf'*/
1044 if( (_PyGSL_SF_L_TO_I(*((long *) ip6), &tmpi6)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip6), tmpi6); goto fail;} /* arg 'int two_jg'*/
1045 if( (_PyGSL_SF_L_TO_I(*((long *) ip7), &tmpi7)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip7), tmpi7); goto fail;} /* arg 'int two_jh'*/
1046 if( (_PyGSL_SF_L_TO_I(*((long *) ip8), &tmpi8)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip8), tmpi8); goto fail;} /* arg 'int two_ji'*/
1047 tmpr9 = ((int (*)(int, int, int, int, int, int, int, int, int, gsl_sf_result *)) func)(/* int two_ja */ tmpi0, /* int two_jb */ tmpi1, /* int two_jc */ tmpi2, /* int two_jd */ tmpi3, /* int two_je */ tmpi4, /* int two_jf */ tmpi5, /* int two_jg */ tmpi6, /* int two_jh */ tmpi7, /* int two_ji */ tmpi8, /* gsl_sf_result p result */ &tmpo10);
1048 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr9, (long) tmpr9);
1049 *((long *) rp9) = 0L;
1050 *((long *) rp9) = (long) tmpr9;
1051 *((double *) op10) = (double) tmpo10.val;
1052 *((double *) op11) = (double) tmpo10.err;
1053 continue;
1054
1055 fail:
1056 FUNC_MESS("FAIL");
1057
1058 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1059
1060 *((int *) rp9) = INT_MIN;
1061 *((double *) op10) = _PyGSL_NAN;
1062 *((double *) op11) = _PyGSL_NAN;
1063 }
1064 FUNC_MESS_END();
1065
1066 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord */
1067
PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1068 void PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1069 {
1070 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *ip6 = args[6], *ip7 = args[7], *ip8 = args[8], *rp9 = args[9], *op10 = args[10], *op11 = args[11];
1071 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], is6 = steps[6], is7 = steps[7], is8 = steps[8], rs9 = steps[9], os10 = steps[10], os11 = steps[11];
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082 gsl_sf_result tmpo10;
1083 FUNC_MESS_BEGIN();
1084
1085 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, ip6 += is6, ip7 += is7, ip8 += is8, rp9 += rs9, op10 += os10, op11 += os11){
1086
1087 /* arg 'int two_ja'*/
1088 /* arg 'int two_jb'*/
1089 /* arg 'int two_jc'*/
1090 /* arg 'int two_jd'*/
1091 /* arg 'int two_je'*/
1092 /* arg 'int two_jf'*/
1093 /* arg 'int two_jg'*/
1094 /* arg 'int two_jh'*/
1095 /* arg 'int two_ji'*/
1096 *((int *) rp9) = ((int (*)(int, int, int, int, int, int, int, int, int, gsl_sf_result *)) func)(/* int two_ja */ (*((int *) ip0)), /* int two_jb */ (*((int *) ip1)), /* int two_jc */ (*((int *) ip2)), /* int two_jd */ (*((int *) ip3)), /* int two_je */ (*((int *) ip4)), /* int two_jf */ (*((int *) ip5)), /* int two_jg */ (*((int *) ip6)), /* int two_jh */ (*((int *) ip7)), /* int two_ji */ (*((int *) ip8)), /* gsl_sf_result p result */ &tmpo10);
1097
1098 *((float *) op10) = (float) tmpo10.val;
1099 *((float *) op11) = (float) tmpo10.err;
1100 continue;
1101 }
1102 FUNC_MESS_END();
1103
1104 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rl__Ord_as_minor */
1105
PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1106 void PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1107 {
1108 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *ip6 = args[6], *ip7 = args[7], *ip8 = args[8], *rp9 = args[9];
1109 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], is6 = steps[6], is7 = steps[7], is8 = steps[8], rs9 = steps[9];
1110 int tmpi0;
1111 int tmpi1;
1112 int tmpi2;
1113 int tmpi3;
1114 int tmpi4;
1115 int tmpi5;
1116 int tmpi6;
1117 int tmpi7;
1118 int tmpi8;
1119
1120 FUNC_MESS_BEGIN();
1121
1122 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, ip6 += is6, ip7 += is7, ip8 += is8, rp9 += rs9){
1123
1124 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int two_ja'*/
1125 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int two_jb'*/
1126 if( (_PyGSL_SF_L_TO_I(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'int two_jc'*/
1127 if( (_PyGSL_SF_L_TO_I(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'int two_jd'*/
1128 if( (_PyGSL_SF_L_TO_I(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'int two_je'*/
1129 if( (_PyGSL_SF_L_TO_I(*((long *) ip5), &tmpi5)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip5), tmpi5); goto fail;} /* arg 'int two_jf'*/
1130 if( (_PyGSL_SF_L_TO_I(*((long *) ip6), &tmpi6)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip6), tmpi6); goto fail;} /* arg 'int two_jg'*/
1131 if( (_PyGSL_SF_L_TO_I(*((long *) ip7), &tmpi7)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip7), tmpi7); goto fail;} /* arg 'int two_jh'*/
1132 if( (_PyGSL_SF_L_TO_I(*((long *) ip8), &tmpi8)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip8), tmpi8); goto fail;} /* arg 'int two_ji'*/
1133 *((double *) rp9) = ((double (*)(int, int, int, int, int, int, int, int, int)) func)(/* int two_ja */ tmpi0, /* int two_jb */ tmpi1, /* int two_jc */ tmpi2, /* int two_jd */ tmpi3, /* int two_je */ tmpi4, /* int two_jf */ tmpi5, /* int two_jg */ tmpi6, /* int two_jh */ tmpi7, /* int two_ji */ tmpi8);
1134
1135 continue;
1136
1137 fail:
1138 FUNC_MESS("FAIL");
1139
1140 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1141
1142 *((double *) rp9) = _PyGSL_NAN;
1143 }
1144 FUNC_MESS_END();
1145
1146 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O */
1147
PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1148 void PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1149 {
1150 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *ip5 = args[5], *ip6 = args[6], *ip7 = args[7], *ip8 = args[8], *rp9 = args[9];
1151 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], is5 = steps[5], is6 = steps[6], is7 = steps[7], is8 = steps[8], rs9 = steps[9];
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161 double tmpr9;
1162 FUNC_MESS_BEGIN();
1163
1164 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, ip5 += is5, ip6 += is6, ip7 += is7, ip8 += is8, rp9 += rs9){
1165
1166 /* arg 'int two_ja'*/
1167 /* arg 'int two_jb'*/
1168 /* arg 'int two_jc'*/
1169 /* arg 'int two_jd'*/
1170 /* arg 'int two_je'*/
1171 /* arg 'int two_jf'*/
1172 /* arg 'int two_jg'*/
1173 /* arg 'int two_jh'*/
1174 /* arg 'int two_ji'*/
1175 tmpr9 = ((double (*)(int, int, int, int, int, int, int, int, int)) func)(/* int two_ja */ (*((int *) ip0)), /* int two_jb */ (*((int *) ip1)), /* int two_jc */ (*((int *) ip2)), /* int two_jd */ (*((int *) ip3)), /* int two_je */ (*((int *) ip4)), /* int two_jf */ (*((int *) ip5)), /* int two_jg */ (*((int *) ip6)), /* int two_jh */ (*((int *) ip7)), /* int two_ji */ (*((int *) ip8)));
1176 (*((float *) rp9)) = (float) tmpr9;
1177 continue;
1178 }
1179 FUNC_MESS_END();
1180
1181 } /* PyGSL_sf_ufunc_Il_l_l_l_l_l_l_l_l__Rd__O_as_minor */
1182
PyGSL_sf_ufunc_Id_d__Rl__Ord_rd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1183 void PyGSL_sf_ufunc_Id_d__Rl__Ord_rd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1184 {
1185 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
1186 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5], os6 = steps[6];
1187
1188
1189 int tmpr2;
1190 gsl_sf_result tmpo3;
1191 gsl_sf_result tmpo5;
1192 FUNC_MESS_BEGIN();
1193
1194 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5, op6 += os6){
1195
1196 /* arg 'double q(const) x'*/
1197 /* arg 'double q(const) y'*/
1198 tmpr2 = ((int (*)(double, double, gsl_sf_result *, gsl_sf_result *)) func)(/* double q(const) x */ (*((double *) ip0)), /* double q(const) y */ (*((double *) ip1)), /* gsl_sf_result p result_im */ &tmpo3, /* gsl_sf_result p result_re */ &tmpo5);
1199 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
1200 *((long *) rp2) = 0L;
1201 *((long *) rp2) = (long) tmpr2;
1202 *((double *) op3) = (double) tmpo3.val;
1203 *((double *) op4) = (double) tmpo3.err;
1204 *((double *) op5) = (double) tmpo5.val;
1205 *((double *) op6) = (double) tmpo5.err;
1206 continue;
1207 }
1208 FUNC_MESS_END();
1209
1210 } /* PyGSL_sf_ufunc_Id_d__Rl__Ord_rd */
1211
PyGSL_sf_ufunc_Id_d__Rl__Ord_rd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1212 void PyGSL_sf_ufunc_Id_d__Rl__Ord_rd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1213 {
1214 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
1215 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5], os6 = steps[6];
1216 double tmpi0;
1217 double tmpi1;
1218
1219 gsl_sf_result tmpo3;
1220 gsl_sf_result tmpo5;
1221 FUNC_MESS_BEGIN();
1222
1223 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5, op6 += os6){
1224
1225 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
1226 tmpi1 = *((float *) ip1); /* arg 'double q(const) y'*/
1227 *((int *) rp2) = ((int (*)(double, double, gsl_sf_result *, gsl_sf_result *)) func)(/* double q(const) x */ tmpi0, /* double q(const) y */ tmpi1, /* gsl_sf_result p result_im */ &tmpo3, /* gsl_sf_result p result_re */ &tmpo5);
1228
1229 *((float *) op3) = (float) tmpo3.val;
1230 *((float *) op4) = (float) tmpo3.err;
1231 *((float *) op5) = (float) tmpo5.val;
1232 *((float *) op6) = (float) tmpo5.err;
1233 continue;
1234 }
1235 FUNC_MESS_END();
1236
1237 } /* PyGSL_sf_ufunc_Id_d__Rl__Ord_rd_as_minor */
1238
PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1239 void PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1240 {
1241 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
1242 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
1243
1244
1245
1246
1247 int tmpr4;
1248 gsl_sf_result tmpo5;
1249 FUNC_MESS_BEGIN();
1250
1251 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
1252
1253 /* arg 'double q(const) x'*/
1254 /* arg 'double q(const) dx'*/
1255 /* arg 'double q(const) y'*/
1256 /* arg 'double q(const) dy'*/
1257 tmpr4 = ((int (*)(double, double, double, double, gsl_sf_result *)) func)(/* double q(const) x */ (*((double *) ip0)), /* double q(const) dx */ (*((double *) ip1)), /* double q(const) y */ (*((double *) ip2)), /* double q(const) dy */ (*((double *) ip3)), /* gsl_sf_result p result */ &tmpo5);
1258 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr4, (long) tmpr4);
1259 *((long *) rp4) = 0L;
1260 *((long *) rp4) = (long) tmpr4;
1261 *((double *) op5) = (double) tmpo5.val;
1262 *((double *) op6) = (double) tmpo5.err;
1263 continue;
1264 }
1265 FUNC_MESS_END();
1266
1267 } /* PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord */
1268
PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1269 void PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1270 {
1271 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
1272 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
1273 double tmpi0;
1274 double tmpi1;
1275 double tmpi2;
1276 double tmpi3;
1277
1278 gsl_sf_result tmpo5;
1279 FUNC_MESS_BEGIN();
1280
1281 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
1282
1283 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
1284 tmpi1 = *((float *) ip1); /* arg 'double q(const) dx'*/
1285 tmpi2 = *((float *) ip2); /* arg 'double q(const) y'*/
1286 tmpi3 = *((float *) ip3); /* arg 'double q(const) dy'*/
1287 *((int *) rp4) = ((int (*)(double, double, double, double, gsl_sf_result *)) func)(/* double q(const) x */ tmpi0, /* double q(const) dx */ tmpi1, /* double q(const) y */ tmpi2, /* double q(const) dy */ tmpi3, /* gsl_sf_result p result */ &tmpo5);
1288
1289 *((float *) op5) = (float) tmpo5.val;
1290 *((float *) op6) = (float) tmpo5.err;
1291 continue;
1292 }
1293 FUNC_MESS_END();
1294
1295 } /* PyGSL_sf_ufunc_Id_d_d_d__Rl__Ord_as_minor */
1296
PyGSL_sf_ufunc_Id_d_m__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1297 void PyGSL_sf_ufunc_Id_d_m__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1298 {
1299 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
1300 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
1301
1302
1303 gsl_mode_t tmpi2;
1304 int tmpr3;
1305 gsl_sf_result tmpo4;
1306 FUNC_MESS_BEGIN();
1307
1308 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
1309
1310 /* arg 'double k'*/
1311 /* arg 'double n'*/
1312 if( (_PyGSL_SF_L_TO_U(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'gsl_mode_t mode'*/
1313 tmpr3 = ((int (*)(double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double k */ (*((double *) ip0)), /* double n */ (*((double *) ip1)), /* gsl_mode_t mode */ tmpi2, /* gsl_sf_result p result */ &tmpo4);
1314 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
1315 *((long *) rp3) = 0L;
1316 *((long *) rp3) = (long) tmpr3;
1317 *((double *) op4) = (double) tmpo4.val;
1318 *((double *) op5) = (double) tmpo4.err;
1319 continue;
1320
1321 fail:
1322 FUNC_MESS("FAIL");
1323
1324 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1325
1326 *((int *) rp3) = INT_MIN;
1327 *((double *) op4) = _PyGSL_NAN;
1328 *((double *) op5) = _PyGSL_NAN;
1329 }
1330 FUNC_MESS_END();
1331
1332 } /* PyGSL_sf_ufunc_Id_d_m__Rl__Ord */
1333
PyGSL_sf_ufunc_Id_d_m__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1334 void PyGSL_sf_ufunc_Id_d_m__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1335 {
1336 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
1337 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
1338 double tmpi0;
1339 double tmpi1;
1340
1341
1342 gsl_sf_result tmpo4;
1343 FUNC_MESS_BEGIN();
1344
1345 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
1346
1347 tmpi0 = *((float *) ip0); /* arg 'double k'*/
1348 tmpi1 = *((float *) ip1); /* arg 'double n'*/
1349 /* arg 'gsl_mode_t mode'*/
1350 *((int *) rp3) = ((int (*)(double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double k */ tmpi0, /* double n */ tmpi1, /* gsl_mode_t mode */ (*((int *) ip2)), /* gsl_sf_result p result */ &tmpo4);
1351
1352 *((float *) op4) = (float) tmpo4.val;
1353 *((float *) op5) = (float) tmpo4.err;
1354 continue;
1355 }
1356 FUNC_MESS_END();
1357
1358 } /* PyGSL_sf_ufunc_Id_d_m__Rl__Ord_as_minor */
1359
PyGSL_sf_ufunc_Id_d_m__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1360 void PyGSL_sf_ufunc_Id_d_m__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1361 {
1362 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
1363 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
1364
1365
1366 gsl_mode_t tmpi2;
1367
1368 FUNC_MESS_BEGIN();
1369
1370 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
1371
1372 /* arg 'double k'*/
1373 /* arg 'double n'*/
1374 if( (_PyGSL_SF_L_TO_U(*((long *) ip2), &tmpi2)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip2), tmpi2); goto fail;} /* arg 'gsl_mode_t mode'*/
1375 *((double *) rp3) = ((double (*)(double, double, gsl_mode_t)) func)(/* double k */ (*((double *) ip0)), /* double n */ (*((double *) ip1)), /* gsl_mode_t mode */ tmpi2);
1376
1377 continue;
1378
1379 fail:
1380 FUNC_MESS("FAIL");
1381
1382 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1383
1384 *((double *) rp3) = _PyGSL_NAN;
1385 }
1386 FUNC_MESS_END();
1387
1388 } /* PyGSL_sf_ufunc_Id_d_m__Rd__O */
1389
PyGSL_sf_ufunc_Id_d_m__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1390 void PyGSL_sf_ufunc_Id_d_m__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1391 {
1392 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
1393 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
1394 double tmpi0;
1395 double tmpi1;
1396
1397 double tmpr3;
1398 FUNC_MESS_BEGIN();
1399
1400 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
1401
1402 tmpi0 = *((float *) ip0); /* arg 'double k'*/
1403 tmpi1 = *((float *) ip1); /* arg 'double n'*/
1404 /* arg 'gsl_mode_t mode'*/
1405 tmpr3 = ((double (*)(double, double, gsl_mode_t)) func)(/* double k */ tmpi0, /* double n */ tmpi1, /* gsl_mode_t mode */ (*((int *) ip2)));
1406 (*((float *) rp3)) = (float) tmpr3;
1407 continue;
1408 }
1409 FUNC_MESS_END();
1410
1411 } /* PyGSL_sf_ufunc_Id_d_m__Rd__O_as_minor */
1412
PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1413 void PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1414 {
1415 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
1416 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
1417
1418
1419
1420 gsl_mode_t tmpi3;
1421 int tmpr4;
1422 gsl_sf_result tmpo5;
1423 FUNC_MESS_BEGIN();
1424
1425 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
1426
1427 /* arg 'double phi'*/
1428 /* arg 'double k'*/
1429 /* arg 'double n'*/
1430 if( (_PyGSL_SF_L_TO_U(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'gsl_mode_t mode'*/
1431 tmpr4 = ((int (*)(double, double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double phi */ (*((double *) ip0)), /* double k */ (*((double *) ip1)), /* double n */ (*((double *) ip2)), /* gsl_mode_t mode */ tmpi3, /* gsl_sf_result p result */ &tmpo5);
1432 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr4, (long) tmpr4);
1433 *((long *) rp4) = 0L;
1434 *((long *) rp4) = (long) tmpr4;
1435 *((double *) op5) = (double) tmpo5.val;
1436 *((double *) op6) = (double) tmpo5.err;
1437 continue;
1438
1439 fail:
1440 FUNC_MESS("FAIL");
1441
1442 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1443
1444 *((int *) rp4) = INT_MIN;
1445 *((double *) op5) = _PyGSL_NAN;
1446 *((double *) op6) = _PyGSL_NAN;
1447 }
1448 FUNC_MESS_END();
1449
1450 } /* PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord */
1451
PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1452 void PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1453 {
1454 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6];
1455 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5], os6 = steps[6];
1456 double tmpi0;
1457 double tmpi1;
1458 double tmpi2;
1459
1460
1461 gsl_sf_result tmpo5;
1462 FUNC_MESS_BEGIN();
1463
1464 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5, op6 += os6){
1465
1466 tmpi0 = *((float *) ip0); /* arg 'double phi'*/
1467 tmpi1 = *((float *) ip1); /* arg 'double k'*/
1468 tmpi2 = *((float *) ip2); /* arg 'double n'*/
1469 /* arg 'gsl_mode_t mode'*/
1470 *((int *) rp4) = ((int (*)(double, double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double phi */ tmpi0, /* double k */ tmpi1, /* double n */ tmpi2, /* gsl_mode_t mode */ (*((int *) ip3)), /* gsl_sf_result p result */ &tmpo5);
1471
1472 *((float *) op5) = (float) tmpo5.val;
1473 *((float *) op6) = (float) tmpo5.err;
1474 continue;
1475 }
1476 FUNC_MESS_END();
1477
1478 } /* PyGSL_sf_ufunc_Id_d_d_m__Rl__Ord_as_minor */
1479
PyGSL_sf_ufunc_Id_d_d_m__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1480 void PyGSL_sf_ufunc_Id_d_d_m__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1481 {
1482 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
1483 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
1484
1485
1486
1487 gsl_mode_t tmpi3;
1488
1489 FUNC_MESS_BEGIN();
1490
1491 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
1492
1493 /* arg 'double phi'*/
1494 /* arg 'double k'*/
1495 /* arg 'double n'*/
1496 if( (_PyGSL_SF_L_TO_U(*((long *) ip3), &tmpi3)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip3), tmpi3); goto fail;} /* arg 'gsl_mode_t mode'*/
1497 *((double *) rp4) = ((double (*)(double, double, double, gsl_mode_t)) func)(/* double phi */ (*((double *) ip0)), /* double k */ (*((double *) ip1)), /* double n */ (*((double *) ip2)), /* gsl_mode_t mode */ tmpi3);
1498
1499 continue;
1500
1501 fail:
1502 FUNC_MESS("FAIL");
1503
1504 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1505
1506 *((double *) rp4) = _PyGSL_NAN;
1507 }
1508 FUNC_MESS_END();
1509
1510 } /* PyGSL_sf_ufunc_Id_d_d_m__Rd__O */
1511
PyGSL_sf_ufunc_Id_d_d_m__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1512 void PyGSL_sf_ufunc_Id_d_d_m__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1513 {
1514 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
1515 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
1516 double tmpi0;
1517 double tmpi1;
1518 double tmpi2;
1519
1520 double tmpr4;
1521 FUNC_MESS_BEGIN();
1522
1523 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
1524
1525 tmpi0 = *((float *) ip0); /* arg 'double phi'*/
1526 tmpi1 = *((float *) ip1); /* arg 'double k'*/
1527 tmpi2 = *((float *) ip2); /* arg 'double n'*/
1528 /* arg 'gsl_mode_t mode'*/
1529 tmpr4 = ((double (*)(double, double, double, gsl_mode_t)) func)(/* double phi */ tmpi0, /* double k */ tmpi1, /* double n */ tmpi2, /* gsl_mode_t mode */ (*((int *) ip3)));
1530 (*((float *) rp4)) = (float) tmpr4;
1531 continue;
1532 }
1533 FUNC_MESS_END();
1534
1535 } /* PyGSL_sf_ufunc_Id_d_d_m__Rd__O_as_minor */
1536
PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1537 void PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1538 {
1539 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *rp5 = args[5], *op6 = args[6], *op7 = args[7];
1540 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], rs5 = steps[5], os6 = steps[6], os7 = steps[7];
1541
1542
1543
1544
1545 gsl_mode_t tmpi4;
1546 int tmpr5;
1547 gsl_sf_result tmpo6;
1548 FUNC_MESS_BEGIN();
1549
1550 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, rp5 += rs5, op6 += os6, op7 += os7){
1551
1552 /* arg 'double x'*/
1553 /* arg 'double y'*/
1554 /* arg 'double z'*/
1555 /* arg 'double p'*/
1556 if( (_PyGSL_SF_L_TO_U(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'gsl_mode_t mode'*/
1557 tmpr5 = ((int (*)(double, double, double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double x */ (*((double *) ip0)), /* double y */ (*((double *) ip1)), /* double z */ (*((double *) ip2)), /* double p */ (*((double *) ip3)), /* gsl_mode_t mode */ tmpi4, /* gsl_sf_result p result */ &tmpo6);
1558 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr5, (long) tmpr5);
1559 *((long *) rp5) = 0L;
1560 *((long *) rp5) = (long) tmpr5;
1561 *((double *) op6) = (double) tmpo6.val;
1562 *((double *) op7) = (double) tmpo6.err;
1563 continue;
1564
1565 fail:
1566 FUNC_MESS("FAIL");
1567
1568 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1569
1570 *((int *) rp5) = INT_MIN;
1571 *((double *) op6) = _PyGSL_NAN;
1572 *((double *) op7) = _PyGSL_NAN;
1573 }
1574 FUNC_MESS_END();
1575
1576 } /* PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord */
1577
PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1578 void PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1579 {
1580 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *rp5 = args[5], *op6 = args[6], *op7 = args[7];
1581 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], rs5 = steps[5], os6 = steps[6], os7 = steps[7];
1582 double tmpi0;
1583 double tmpi1;
1584 double tmpi2;
1585 double tmpi3;
1586
1587
1588 gsl_sf_result tmpo6;
1589 FUNC_MESS_BEGIN();
1590
1591 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, rp5 += rs5, op6 += os6, op7 += os7){
1592
1593 tmpi0 = *((float *) ip0); /* arg 'double x'*/
1594 tmpi1 = *((float *) ip1); /* arg 'double y'*/
1595 tmpi2 = *((float *) ip2); /* arg 'double z'*/
1596 tmpi3 = *((float *) ip3); /* arg 'double p'*/
1597 /* arg 'gsl_mode_t mode'*/
1598 *((int *) rp5) = ((int (*)(double, double, double, double, gsl_mode_t, gsl_sf_result *)) func)(/* double x */ tmpi0, /* double y */ tmpi1, /* double z */ tmpi2, /* double p */ tmpi3, /* gsl_mode_t mode */ (*((int *) ip4)), /* gsl_sf_result p result */ &tmpo6);
1599
1600 *((float *) op6) = (float) tmpo6.val;
1601 *((float *) op7) = (float) tmpo6.err;
1602 continue;
1603 }
1604 FUNC_MESS_END();
1605
1606 } /* PyGSL_sf_ufunc_Id_d_d_d_m__Rl__Ord_as_minor */
1607
PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1608 void PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1609 {
1610 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *rp5 = args[5];
1611 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], rs5 = steps[5];
1612
1613
1614
1615
1616 gsl_mode_t tmpi4;
1617
1618 FUNC_MESS_BEGIN();
1619
1620 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, rp5 += rs5){
1621
1622 /* arg 'double x'*/
1623 /* arg 'double y'*/
1624 /* arg 'double z'*/
1625 /* arg 'double p'*/
1626 if( (_PyGSL_SF_L_TO_U(*((long *) ip4), &tmpi4)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip4), tmpi4); goto fail;} /* arg 'gsl_mode_t mode'*/
1627 *((double *) rp5) = ((double (*)(double, double, double, double, gsl_mode_t)) func)(/* double x */ (*((double *) ip0)), /* double y */ (*((double *) ip1)), /* double z */ (*((double *) ip2)), /* double p */ (*((double *) ip3)), /* gsl_mode_t mode */ tmpi4);
1628
1629 continue;
1630
1631 fail:
1632 FUNC_MESS("FAIL");
1633
1634 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1635
1636 *((double *) rp5) = _PyGSL_NAN;
1637 }
1638 FUNC_MESS_END();
1639
1640 } /* PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O */
1641
PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1642 void PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1643 {
1644 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *ip4 = args[4], *rp5 = args[5];
1645 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], is4 = steps[4], rs5 = steps[5];
1646 double tmpi0;
1647 double tmpi1;
1648 double tmpi2;
1649 double tmpi3;
1650
1651 double tmpr5;
1652 FUNC_MESS_BEGIN();
1653
1654 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, ip4 += is4, rp5 += rs5){
1655
1656 tmpi0 = *((float *) ip0); /* arg 'double x'*/
1657 tmpi1 = *((float *) ip1); /* arg 'double y'*/
1658 tmpi2 = *((float *) ip2); /* arg 'double z'*/
1659 tmpi3 = *((float *) ip3); /* arg 'double p'*/
1660 /* arg 'gsl_mode_t mode'*/
1661 tmpr5 = ((double (*)(double, double, double, double, gsl_mode_t)) func)(/* double x */ tmpi0, /* double y */ tmpi1, /* double z */ tmpi2, /* double p */ tmpi3, /* gsl_mode_t mode */ (*((int *) ip4)));
1662 (*((float *) rp5)) = (float) tmpr5;
1663 continue;
1664 }
1665 FUNC_MESS_END();
1666
1667 } /* PyGSL_sf_ufunc_Id_d_d_d_m__Rd__O_as_minor */
1668
PyGSL_sf_ufunc_Id_d__Rl__Od_d_d(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1669 void PyGSL_sf_ufunc_Id_d__Rl__Od_d_d (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1670 {
1671 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
1672 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5];
1673
1674
1675 int tmpr2;
1676
1677
1678
1679 FUNC_MESS_BEGIN();
1680
1681 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5){
1682
1683 /* arg 'double u'*/
1684 /* arg 'double m'*/
1685 tmpr2 = ((int (*)(double, double, double *, double *, double *)) func)(/* double u */ (*((double *) ip0)), /* double m */ (*((double *) ip1)), /* double p dn */ ((double *) op3), /* double p cn */ ((double *) op4), /* double p sn */ ((double *) op5));
1686 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
1687 *((long *) rp2) = 0L;
1688 *((long *) rp2) = (long) tmpr2;
1689
1690
1691
1692 continue;
1693 }
1694 FUNC_MESS_END();
1695
1696 } /* PyGSL_sf_ufunc_Id_d__Rl__Od_d_d */
1697
PyGSL_sf_ufunc_Id_d__Rl__Od_d_d_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1698 void PyGSL_sf_ufunc_Id_d__Rl__Od_d_d_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1699 {
1700 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
1701 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5];
1702 double tmpi0;
1703 double tmpi1;
1704
1705 double tmpo3;
1706 double tmpo4;
1707 double tmpo5;
1708 FUNC_MESS_BEGIN();
1709
1710 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5){
1711
1712 tmpi0 = *((float *) ip0); /* arg 'double u'*/
1713 tmpi1 = *((float *) ip1); /* arg 'double m'*/
1714 *((int *) rp2) = ((int (*)(double, double, double *, double *, double *)) func)(/* double u */ tmpi0, /* double m */ tmpi1, /* double p dn */ &tmpo3, /* double p cn */ &tmpo4, /* double p sn */ &tmpo5);
1715
1716 *((float *) op3) = (float) tmpo3;
1717 *((float *) op4) = (float) tmpo4;
1718 *((float *) op5) = (float) tmpo5;
1719 continue;
1720 }
1721 FUNC_MESS_END();
1722
1723 } /* PyGSL_sf_ufunc_Id_d__Rl__Od_d_d_as_minor */
1724
PyGSL_sf_ufunc_Id__Rl__Oerd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1725 void PyGSL_sf_ufunc_Id__Rl__Oerd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1726 {
1727 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3], *op4 = args[4];
1728 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2];
1729
1730 int tmpr1;
1731 gsl_sf_result_e10 tmpo2;
1732 FUNC_MESS_BEGIN();
1733
1734 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2){
1735
1736 /* arg 'double q(const) x'*/
1737 tmpr1 = ((int (*)(double, gsl_sf_result_e10 *)) func)(/* double q(const) x */ (*((double *) ip0)), /* gsl_sf_result_e10 p result */ &tmpo2);
1738 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
1739 *((long *) rp1) = 0L;
1740 *((long *) rp1) = (long) tmpr1;
1741 *((double *) op2) = (double) tmpo2.val;
1742 *((double *) op3) = (double) tmpo2.err;
1743 *((int *) op4) = (int) tmpo2.e10;
1744 continue;
1745 }
1746 FUNC_MESS_END();
1747
1748 } /* PyGSL_sf_ufunc_Id__Rl__Oerd */
1749
PyGSL_sf_ufunc_Id__Rl__Oerd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1750 void PyGSL_sf_ufunc_Id__Rl__Oerd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1751 {
1752 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3], *op4 = args[4];
1753 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2];
1754 double tmpi0;
1755
1756 gsl_sf_result_e10 tmpo2;
1757 FUNC_MESS_BEGIN();
1758
1759 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2){
1760
1761 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
1762 *((int *) rp1) = ((int (*)(double, gsl_sf_result_e10 *)) func)(/* double q(const) x */ tmpi0, /* gsl_sf_result_e10 p result */ &tmpo2);
1763
1764 *((double *) op2) = (double) tmpo2.val;
1765 *((double *) op3) = (double) tmpo2.err;
1766 *((int *) op4) = (int) tmpo2.e10;
1767 continue;
1768 }
1769 FUNC_MESS_END();
1770
1771 } /* PyGSL_sf_ufunc_Id__Rl__Oerd_as_minor */
1772
PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1773 void PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1774 {
1775 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6], *op7 = args[7];
1776 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5];
1777
1778
1779
1780
1781 int tmpr4;
1782 gsl_sf_result_e10 tmpo5;
1783 FUNC_MESS_BEGIN();
1784
1785 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5){
1786
1787 /* arg 'double q(const) x'*/
1788 /* arg 'double q(const) dx'*/
1789 /* arg 'double q(const) y'*/
1790 /* arg 'double q(const) dy'*/
1791 tmpr4 = ((int (*)(double, double, double, double, gsl_sf_result_e10 *)) func)(/* double q(const) x */ (*((double *) ip0)), /* double q(const) dx */ (*((double *) ip1)), /* double q(const) y */ (*((double *) ip2)), /* double q(const) dy */ (*((double *) ip3)), /* gsl_sf_result_e10 p result */ &tmpo5);
1792 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr4, (long) tmpr4);
1793 *((long *) rp4) = 0L;
1794 *((long *) rp4) = (long) tmpr4;
1795 *((double *) op5) = (double) tmpo5.val;
1796 *((double *) op6) = (double) tmpo5.err;
1797 *((int *) op7) = (int) tmpo5.e10;
1798 continue;
1799 }
1800 FUNC_MESS_END();
1801
1802 } /* PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd */
1803
PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1804 void PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1805 {
1806 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4], *op5 = args[5], *op6 = args[6], *op7 = args[7];
1807 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4], os5 = steps[5];
1808 double tmpi0;
1809 double tmpi1;
1810 double tmpi2;
1811 double tmpi3;
1812
1813 gsl_sf_result_e10 tmpo5;
1814 FUNC_MESS_BEGIN();
1815
1816 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4, op5 += os5){
1817
1818 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
1819 tmpi1 = *((float *) ip1); /* arg 'double q(const) dx'*/
1820 tmpi2 = *((float *) ip2); /* arg 'double q(const) y'*/
1821 tmpi3 = *((float *) ip3); /* arg 'double q(const) dy'*/
1822 *((int *) rp4) = ((int (*)(double, double, double, double, gsl_sf_result_e10 *)) func)(/* double q(const) x */ tmpi0, /* double q(const) dx */ tmpi1, /* double q(const) y */ tmpi2, /* double q(const) dy */ tmpi3, /* gsl_sf_result_e10 p result */ &tmpo5);
1823
1824 *((double *) op5) = (double) tmpo5.val;
1825 *((double *) op6) = (double) tmpo5.err;
1826 *((int *) op7) = (int) tmpo5.e10;
1827 continue;
1828 }
1829 FUNC_MESS_END();
1830
1831 } /* PyGSL_sf_ufunc_Id_d_d_d__Rl__Oerd_as_minor */
1832
PyGSL_sf_ufunc_Id__Rl__Od_rd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1833 void PyGSL_sf_ufunc_Id__Rl__Od_rd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1834 {
1835 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3], *op4 = args[4];
1836 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3], os4 = steps[4];
1837
1838 int tmpr1;
1839
1840 gsl_sf_result tmpo3;
1841 FUNC_MESS_BEGIN();
1842
1843 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3, op4 += os4){
1844
1845 /* arg 'double x'*/
1846 tmpr1 = ((int (*)(double, double *, gsl_sf_result *)) func)(/* double x */ (*((double *) ip0)), /* double p sgn */ ((double *) op2), /* gsl_sf_result p result_lg */ &tmpo3);
1847 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
1848 *((long *) rp1) = 0L;
1849 *((long *) rp1) = (long) tmpr1;
1850
1851 *((double *) op3) = (double) tmpo3.val;
1852 *((double *) op4) = (double) tmpo3.err;
1853 continue;
1854 }
1855 FUNC_MESS_END();
1856
1857 } /* PyGSL_sf_ufunc_Id__Rl__Od_rd */
1858
PyGSL_sf_ufunc_Id__Rl__Od_rd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1859 void PyGSL_sf_ufunc_Id__Rl__Od_rd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1860 {
1861 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3], *op4 = args[4];
1862 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3], os4 = steps[4];
1863 double tmpi0;
1864
1865 double tmpo2;
1866 gsl_sf_result tmpo3;
1867 FUNC_MESS_BEGIN();
1868
1869 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3, op4 += os4){
1870
1871 tmpi0 = *((float *) ip0); /* arg 'double x'*/
1872 *((int *) rp1) = ((int (*)(double, double *, gsl_sf_result *)) func)(/* double x */ tmpi0, /* double p sgn */ &tmpo2, /* gsl_sf_result p result_lg */ &tmpo3);
1873
1874 *((float *) op2) = (float) tmpo2;
1875 *((float *) op3) = (float) tmpo3.val;
1876 *((float *) op4) = (float) tmpo3.err;
1877 continue;
1878 }
1879 FUNC_MESS_END();
1880
1881 } /* PyGSL_sf_ufunc_Id__Rl__Od_rd_as_minor */
1882
PyGSL_sf_ufunc_Iui_ui__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1883 void PyGSL_sf_ufunc_Iui_ui__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1884 {
1885 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
1886 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
1887 unsigned int tmpi0;
1888 unsigned int tmpi1;
1889 int tmpr2;
1890 gsl_sf_result tmpo3;
1891 FUNC_MESS_BEGIN();
1892
1893 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
1894
1895 if( (_PyGSL_SF_L_TO_U(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'unsigned int n'*/
1896 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'unsigned int m'*/
1897 tmpr2 = ((int (*)(unsigned int, unsigned int, gsl_sf_result *)) func)(/* unsigned int n */ tmpi0, /* unsigned int m */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
1898 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
1899 *((long *) rp2) = 0L;
1900 *((long *) rp2) = (long) tmpr2;
1901 *((double *) op3) = (double) tmpo3.val;
1902 *((double *) op4) = (double) tmpo3.err;
1903 continue;
1904
1905 fail:
1906 FUNC_MESS("FAIL");
1907
1908 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1909
1910 *((int *) rp2) = INT_MIN;
1911 *((double *) op3) = _PyGSL_NAN;
1912 *((double *) op4) = _PyGSL_NAN;
1913 }
1914 FUNC_MESS_END();
1915
1916 } /* PyGSL_sf_ufunc_Iui_ui__Rl__Ord */
1917
PyGSL_sf_ufunc_Iui_ui__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1918 void PyGSL_sf_ufunc_Iui_ui__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1919 {
1920 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
1921 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
1922
1923
1924
1925 gsl_sf_result tmpo3;
1926 FUNC_MESS_BEGIN();
1927
1928 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
1929
1930 /* arg 'unsigned int n'*/
1931 /* arg 'unsigned int m'*/
1932 *((int *) rp2) = ((int (*)(unsigned int, unsigned int, gsl_sf_result *)) func)(/* unsigned int n */ (*((int *) ip0)), /* unsigned int m */ (*((int *) ip1)), /* gsl_sf_result p result */ &tmpo3);
1933
1934 *((float *) op3) = (float) tmpo3.val;
1935 *((float *) op4) = (float) tmpo3.err;
1936 continue;
1937 }
1938 FUNC_MESS_END();
1939
1940 } /* PyGSL_sf_ufunc_Iui_ui__Rl__Ord_as_minor */
1941
PyGSL_sf_ufunc_Iui_ui__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1942 void PyGSL_sf_ufunc_Iui_ui__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1943 {
1944 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
1945 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
1946 unsigned int tmpi0;
1947 unsigned int tmpi1;
1948
1949 FUNC_MESS_BEGIN();
1950
1951 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
1952
1953 if( (_PyGSL_SF_L_TO_U(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'unsigned int n'*/
1954 if( (_PyGSL_SF_L_TO_U(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'unsigned int m'*/
1955 *((double *) rp2) = ((double (*)(unsigned int, unsigned int)) func)(/* unsigned int n */ tmpi0, /* unsigned int m */ tmpi1);
1956
1957 continue;
1958
1959 fail:
1960 FUNC_MESS("FAIL");
1961
1962 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
1963
1964 *((double *) rp2) = _PyGSL_NAN;
1965 }
1966 FUNC_MESS_END();
1967
1968 } /* PyGSL_sf_ufunc_Iui_ui__Rd__O */
1969
PyGSL_sf_ufunc_Iui_ui__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1970 void PyGSL_sf_ufunc_Iui_ui__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1971 {
1972 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
1973 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
1974
1975
1976 double tmpr2;
1977 FUNC_MESS_BEGIN();
1978
1979 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
1980
1981 /* arg 'unsigned int n'*/
1982 /* arg 'unsigned int m'*/
1983 tmpr2 = ((double (*)(unsigned int, unsigned int)) func)(/* unsigned int n */ (*((int *) ip0)), /* unsigned int m */ (*((int *) ip1)));
1984 (*((float *) rp2)) = (float) tmpr2;
1985 continue;
1986 }
1987 FUNC_MESS_END();
1988
1989 } /* PyGSL_sf_ufunc_Iui_ui__Rd__O_as_minor */
1990
PyGSL_sf_ufunc_Id_d__Rl__Od_rd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)1991 void PyGSL_sf_ufunc_Id_d__Rl__Od_rd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
1992 {
1993 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
1994 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5];
1995
1996
1997 int tmpr2;
1998
1999 gsl_sf_result tmpo4;
2000 FUNC_MESS_BEGIN();
2001
2002 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5){
2003
2004 /* arg 'double q(const) a'*/
2005 /* arg 'double q(const) x'*/
2006 tmpr2 = ((int (*)(double, double, double *, gsl_sf_result *)) func)(/* double q(const) a */ (*((double *) ip0)), /* double q(const) x */ (*((double *) ip1)), /* double p sgn */ ((double *) op3), /* gsl_sf_result p result */ &tmpo4);
2007 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
2008 *((long *) rp2) = 0L;
2009 *((long *) rp2) = (long) tmpr2;
2010
2011 *((double *) op4) = (double) tmpo4.val;
2012 *((double *) op5) = (double) tmpo4.err;
2013 continue;
2014 }
2015 FUNC_MESS_END();
2016
2017 } /* PyGSL_sf_ufunc_Id_d__Rl__Od_rd */
2018
PyGSL_sf_ufunc_Id_d__Rl__Od_rd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2019 void PyGSL_sf_ufunc_Id_d__Rl__Od_rd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2020 {
2021 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4], *op5 = args[5];
2022 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4], os5 = steps[5];
2023 double tmpi0;
2024 double tmpi1;
2025
2026 double tmpo3;
2027 gsl_sf_result tmpo4;
2028 FUNC_MESS_BEGIN();
2029
2030 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4, op5 += os5){
2031
2032 tmpi0 = *((float *) ip0); /* arg 'double q(const) a'*/
2033 tmpi1 = *((float *) ip1); /* arg 'double q(const) x'*/
2034 *((int *) rp2) = ((int (*)(double, double, double *, gsl_sf_result *)) func)(/* double q(const) a */ tmpi0, /* double q(const) x */ tmpi1, /* double p sgn */ &tmpo3, /* gsl_sf_result p result */ &tmpo4);
2035
2036 *((float *) op3) = (float) tmpo3;
2037 *((float *) op4) = (float) tmpo4.val;
2038 *((float *) op5) = (float) tmpo4.err;
2039 continue;
2040 }
2041 FUNC_MESS_END();
2042
2043 } /* PyGSL_sf_ufunc_Id_d__Rl__Od_rd_as_minor */
2044
PyGSL_sf_ufunc_Id_d_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2045 void PyGSL_sf_ufunc_Id_d_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2046 {
2047 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2048 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2049
2050
2051
2052 int tmpr3;
2053 gsl_sf_result tmpo4;
2054 FUNC_MESS_BEGIN();
2055
2056 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2057
2058 /* arg 'double q(const) a'*/
2059 /* arg 'double q(const) b'*/
2060 /* arg 'double q(const) x'*/
2061 tmpr3 = ((int (*)(double, double, double, gsl_sf_result *)) func)(/* double q(const) a */ (*((double *) ip0)), /* double q(const) b */ (*((double *) ip1)), /* double q(const) x */ (*((double *) ip2)), /* gsl_sf_result p result */ &tmpo4);
2062 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
2063 *((long *) rp3) = 0L;
2064 *((long *) rp3) = (long) tmpr3;
2065 *((double *) op4) = (double) tmpo4.val;
2066 *((double *) op5) = (double) tmpo4.err;
2067 continue;
2068 }
2069 FUNC_MESS_END();
2070
2071 } /* PyGSL_sf_ufunc_Id_d_d__Rl__Ord */
2072
PyGSL_sf_ufunc_Id_d_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2073 void PyGSL_sf_ufunc_Id_d_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2074 {
2075 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2076 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2077 double tmpi0;
2078 double tmpi1;
2079 double tmpi2;
2080
2081 gsl_sf_result tmpo4;
2082 FUNC_MESS_BEGIN();
2083
2084 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2085
2086 tmpi0 = *((float *) ip0); /* arg 'double q(const) a'*/
2087 tmpi1 = *((float *) ip1); /* arg 'double q(const) b'*/
2088 tmpi2 = *((float *) ip2); /* arg 'double q(const) x'*/
2089 *((int *) rp3) = ((int (*)(double, double, double, gsl_sf_result *)) func)(/* double q(const) a */ tmpi0, /* double q(const) b */ tmpi1, /* double q(const) x */ tmpi2, /* gsl_sf_result p result */ &tmpo4);
2090
2091 *((float *) op4) = (float) tmpo4.val;
2092 *((float *) op5) = (float) tmpo4.err;
2093 continue;
2094 }
2095 FUNC_MESS_END();
2096
2097 } /* PyGSL_sf_ufunc_Id_d_d__Rl__Ord_as_minor */
2098
PyGSL_sf_ufunc_Id_d_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2099 void PyGSL_sf_ufunc_Id_d_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2100 {
2101 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2102 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2103
2104
2105
2106
2107 FUNC_MESS_BEGIN();
2108
2109 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2110
2111 /* arg 'double q(const) a'*/
2112 /* arg 'double q(const) b'*/
2113 /* arg 'double q(const) x'*/
2114 *((double *) rp3) = ((double (*)(double, double, double)) func)(/* double q(const) a */ (*((double *) ip0)), /* double q(const) b */ (*((double *) ip1)), /* double q(const) x */ (*((double *) ip2)));
2115
2116 continue;
2117 }
2118 FUNC_MESS_END();
2119
2120 } /* PyGSL_sf_ufunc_Id_d_d__Rd__O */
2121
PyGSL_sf_ufunc_Id_d_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2122 void PyGSL_sf_ufunc_Id_d_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2123 {
2124 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2125 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2126 double tmpi0;
2127 double tmpi1;
2128 double tmpi2;
2129 double tmpr3;
2130 FUNC_MESS_BEGIN();
2131
2132 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2133
2134 tmpi0 = *((float *) ip0); /* arg 'double q(const) a'*/
2135 tmpi1 = *((float *) ip1); /* arg 'double q(const) b'*/
2136 tmpi2 = *((float *) ip2); /* arg 'double q(const) x'*/
2137 tmpr3 = ((double (*)(double, double, double)) func)(/* double q(const) a */ tmpi0, /* double q(const) b */ tmpi1, /* double q(const) x */ tmpi2);
2138 (*((float *) rp3)) = (float) tmpr3;
2139 continue;
2140 }
2141 FUNC_MESS_END();
2142
2143 } /* PyGSL_sf_ufunc_Id_d_d__Rd__O_as_minor */
2144
PyGSL_sf_ufunc_Il_d_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2145 void PyGSL_sf_ufunc_Il_d_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2146 {
2147 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2148 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2149 int tmpi0;
2150
2151
2152 int tmpr3;
2153 gsl_sf_result tmpo4;
2154 FUNC_MESS_BEGIN();
2155
2156 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2157
2158 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int n'*/
2159 /* arg 'double lambda'*/
2160 /* arg 'double x'*/
2161 tmpr3 = ((int (*)(int, double, double, gsl_sf_result *)) func)(/* int n */ tmpi0, /* double lambda */ (*((double *) ip1)), /* double x */ (*((double *) ip2)), /* gsl_sf_result p result */ &tmpo4);
2162 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
2163 *((long *) rp3) = 0L;
2164 *((long *) rp3) = (long) tmpr3;
2165 *((double *) op4) = (double) tmpo4.val;
2166 *((double *) op5) = (double) tmpo4.err;
2167 continue;
2168
2169 fail:
2170 FUNC_MESS("FAIL");
2171
2172 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2173
2174 *((int *) rp3) = INT_MIN;
2175 *((double *) op4) = _PyGSL_NAN;
2176 *((double *) op5) = _PyGSL_NAN;
2177 }
2178 FUNC_MESS_END();
2179
2180 } /* PyGSL_sf_ufunc_Il_d_d__Rl__Ord */
2181
PyGSL_sf_ufunc_Il_d_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2182 void PyGSL_sf_ufunc_Il_d_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2183 {
2184 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2185 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2186
2187 double tmpi1;
2188 double tmpi2;
2189
2190 gsl_sf_result tmpo4;
2191 FUNC_MESS_BEGIN();
2192
2193 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2194
2195 /* arg 'int n'*/
2196 tmpi1 = *((float *) ip1); /* arg 'double lambda'*/
2197 tmpi2 = *((float *) ip2); /* arg 'double x'*/
2198 *((int *) rp3) = ((int (*)(int, double, double, gsl_sf_result *)) func)(/* int n */ (*((int *) ip0)), /* double lambda */ tmpi1, /* double x */ tmpi2, /* gsl_sf_result p result */ &tmpo4);
2199
2200 *((float *) op4) = (float) tmpo4.val;
2201 *((float *) op5) = (float) tmpo4.err;
2202 continue;
2203 }
2204 FUNC_MESS_END();
2205
2206 } /* PyGSL_sf_ufunc_Il_d_d__Rl__Ord_as_minor */
2207
PyGSL_sf_ufunc_Il_d_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2208 void PyGSL_sf_ufunc_Il_d_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2209 {
2210 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2211 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2212 int tmpi0;
2213
2214
2215
2216 FUNC_MESS_BEGIN();
2217
2218 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2219
2220 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int n'*/
2221 /* arg 'double lambda'*/
2222 /* arg 'double x'*/
2223 *((double *) rp3) = ((double (*)(int, double, double)) func)(/* int n */ tmpi0, /* double lambda */ (*((double *) ip1)), /* double x */ (*((double *) ip2)));
2224
2225 continue;
2226
2227 fail:
2228 FUNC_MESS("FAIL");
2229
2230 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2231
2232 *((double *) rp3) = _PyGSL_NAN;
2233 }
2234 FUNC_MESS_END();
2235
2236 } /* PyGSL_sf_ufunc_Il_d_d__Rd__O */
2237
PyGSL_sf_ufunc_Il_d_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2238 void PyGSL_sf_ufunc_Il_d_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2239 {
2240 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2241 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2242
2243 double tmpi1;
2244 double tmpi2;
2245 double tmpr3;
2246 FUNC_MESS_BEGIN();
2247
2248 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2249
2250 /* arg 'int n'*/
2251 tmpi1 = *((float *) ip1); /* arg 'double lambda'*/
2252 tmpi2 = *((float *) ip2); /* arg 'double x'*/
2253 tmpr3 = ((double (*)(int, double, double)) func)(/* int n */ (*((int *) ip0)), /* double lambda */ tmpi1, /* double x */ tmpi2);
2254 (*((float *) rp3)) = (float) tmpr3;
2255 continue;
2256 }
2257 FUNC_MESS_END();
2258
2259 } /* PyGSL_sf_ufunc_Il_d_d__Rd__O_as_minor */
2260
PyGSL_sf_ufunc_Il_l_d__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2261 void PyGSL_sf_ufunc_Il_l_d__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2262 {
2263 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2264 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2265 int tmpi0;
2266 int tmpi1;
2267
2268 int tmpr3;
2269 gsl_sf_result tmpo4;
2270 FUNC_MESS_BEGIN();
2271
2272 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2273
2274 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) m'*/
2275 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) n'*/
2276 /* arg 'double q(const) x'*/
2277 tmpr3 = ((int (*)(int, int, double, gsl_sf_result *)) func)(/* int q(const) m */ tmpi0, /* int q(const) n */ tmpi1, /* double q(const) x */ (*((double *) ip2)), /* gsl_sf_result p result */ &tmpo4);
2278 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
2279 *((long *) rp3) = 0L;
2280 *((long *) rp3) = (long) tmpr3;
2281 *((double *) op4) = (double) tmpo4.val;
2282 *((double *) op5) = (double) tmpo4.err;
2283 continue;
2284
2285 fail:
2286 FUNC_MESS("FAIL");
2287
2288 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2289
2290 *((int *) rp3) = INT_MIN;
2291 *((double *) op4) = _PyGSL_NAN;
2292 *((double *) op5) = _PyGSL_NAN;
2293 }
2294 FUNC_MESS_END();
2295
2296 } /* PyGSL_sf_ufunc_Il_l_d__Rl__Ord */
2297
PyGSL_sf_ufunc_Il_l_d__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2298 void PyGSL_sf_ufunc_Il_l_d__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2299 {
2300 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5];
2301 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4], os5 = steps[5];
2302
2303
2304 double tmpi2;
2305
2306 gsl_sf_result tmpo4;
2307 FUNC_MESS_BEGIN();
2308
2309 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4, op5 += os5){
2310
2311 /* arg 'int q(const) m'*/
2312 /* arg 'int q(const) n'*/
2313 tmpi2 = *((float *) ip2); /* arg 'double q(const) x'*/
2314 *((int *) rp3) = ((int (*)(int, int, double, gsl_sf_result *)) func)(/* int q(const) m */ (*((int *) ip0)), /* int q(const) n */ (*((int *) ip1)), /* double q(const) x */ tmpi2, /* gsl_sf_result p result */ &tmpo4);
2315
2316 *((float *) op4) = (float) tmpo4.val;
2317 *((float *) op5) = (float) tmpo4.err;
2318 continue;
2319 }
2320 FUNC_MESS_END();
2321
2322 } /* PyGSL_sf_ufunc_Il_l_d__Rl__Ord_as_minor */
2323
PyGSL_sf_ufunc_Il_l_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2324 void PyGSL_sf_ufunc_Il_l_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2325 {
2326 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2327 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2328 int tmpi0;
2329 int tmpi1;
2330
2331
2332 FUNC_MESS_BEGIN();
2333
2334 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2335
2336 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) m'*/
2337 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) n'*/
2338 /* arg 'double x'*/
2339 *((double *) rp3) = ((double (*)(int, int, double)) func)(/* int q(const) m */ tmpi0, /* int q(const) n */ tmpi1, /* double x */ (*((double *) ip2)));
2340
2341 continue;
2342
2343 fail:
2344 FUNC_MESS("FAIL");
2345
2346 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2347
2348 *((double *) rp3) = _PyGSL_NAN;
2349 }
2350 FUNC_MESS_END();
2351
2352 } /* PyGSL_sf_ufunc_Il_l_d__Rd__O */
2353
PyGSL_sf_ufunc_Il_l_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2354 void PyGSL_sf_ufunc_Il_l_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2355 {
2356 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
2357 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
2358
2359
2360 double tmpi2;
2361 double tmpr3;
2362 FUNC_MESS_BEGIN();
2363
2364 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
2365
2366 /* arg 'int q(const) m'*/
2367 /* arg 'int q(const) n'*/
2368 tmpi2 = *((float *) ip2); /* arg 'double x'*/
2369 tmpr3 = ((double (*)(int, int, double)) func)(/* int q(const) m */ (*((int *) ip0)), /* int q(const) n */ (*((int *) ip1)), /* double x */ tmpi2);
2370 (*((float *) rp3)) = (float) tmpr3;
2371 continue;
2372 }
2373 FUNC_MESS_END();
2374
2375 } /* PyGSL_sf_ufunc_Il_l_d__Rd__O_as_minor */
2376
PyGSL_sf_ufunc_Il_l_d__Rl__Oerd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2377 void PyGSL_sf_ufunc_Il_l_d__Rl__Oerd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2378 {
2379 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
2380 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4];
2381 int tmpi0;
2382 int tmpi1;
2383
2384 int tmpr3;
2385 gsl_sf_result_e10 tmpo4;
2386 FUNC_MESS_BEGIN();
2387
2388 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4){
2389
2390 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) m'*/
2391 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) n'*/
2392 /* arg 'double q(const) x'*/
2393 tmpr3 = ((int (*)(int, int, double, gsl_sf_result_e10 *)) func)(/* int q(const) m */ tmpi0, /* int q(const) n */ tmpi1, /* double q(const) x */ (*((double *) ip2)), /* gsl_sf_result_e10 p result */ &tmpo4);
2394 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
2395 *((long *) rp3) = 0L;
2396 *((long *) rp3) = (long) tmpr3;
2397 *((double *) op4) = (double) tmpo4.val;
2398 *((double *) op5) = (double) tmpo4.err;
2399 *((int *) op6) = (int) tmpo4.e10;
2400 continue;
2401
2402 fail:
2403 FUNC_MESS("FAIL");
2404
2405 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2406
2407 *((int *) rp3) = INT_MIN;
2408 *((double *) op4) = _PyGSL_NAN;
2409 *((double *) op5) = _PyGSL_NAN;
2410 *((int *) op6) = INT_MIN;
2411 }
2412 FUNC_MESS_END();
2413
2414 } /* PyGSL_sf_ufunc_Il_l_d__Rl__Oerd */
2415
PyGSL_sf_ufunc_Il_l_d__Rl__Oerd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2416 void PyGSL_sf_ufunc_Il_l_d__Rl__Oerd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2417 {
2418 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
2419 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4];
2420
2421
2422 double tmpi2;
2423
2424 gsl_sf_result_e10 tmpo4;
2425 FUNC_MESS_BEGIN();
2426
2427 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4){
2428
2429 /* arg 'int q(const) m'*/
2430 /* arg 'int q(const) n'*/
2431 tmpi2 = *((float *) ip2); /* arg 'double q(const) x'*/
2432 *((int *) rp3) = ((int (*)(int, int, double, gsl_sf_result_e10 *)) func)(/* int q(const) m */ (*((int *) ip0)), /* int q(const) n */ (*((int *) ip1)), /* double q(const) x */ tmpi2, /* gsl_sf_result_e10 p result */ &tmpo4);
2433
2434 *((double *) op4) = (double) tmpo4.val;
2435 *((double *) op5) = (double) tmpo4.err;
2436 *((int *) op6) = (int) tmpo4.e10;
2437 continue;
2438 }
2439 FUNC_MESS_END();
2440
2441 } /* PyGSL_sf_ufunc_Il_l_d__Rl__Oerd_as_minor */
2442
PyGSL_sf_ufunc_Id_d_d__Rl__Oerd(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2443 void PyGSL_sf_ufunc_Id_d_d__Rl__Oerd (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2444 {
2445 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
2446 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4];
2447
2448
2449
2450 int tmpr3;
2451 gsl_sf_result_e10 tmpo4;
2452 FUNC_MESS_BEGIN();
2453
2454 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4){
2455
2456 /* arg 'double q(const) a'*/
2457 /* arg 'double q(const) b'*/
2458 /* arg 'double q(const) x'*/
2459 tmpr3 = ((int (*)(double, double, double, gsl_sf_result_e10 *)) func)(/* double q(const) a */ (*((double *) ip0)), /* double q(const) b */ (*((double *) ip1)), /* double q(const) x */ (*((double *) ip2)), /* gsl_sf_result_e10 p result */ &tmpo4);
2460 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
2461 *((long *) rp3) = 0L;
2462 *((long *) rp3) = (long) tmpr3;
2463 *((double *) op4) = (double) tmpo4.val;
2464 *((double *) op5) = (double) tmpo4.err;
2465 *((int *) op6) = (int) tmpo4.e10;
2466 continue;
2467 }
2468 FUNC_MESS_END();
2469
2470 } /* PyGSL_sf_ufunc_Id_d_d__Rl__Oerd */
2471
PyGSL_sf_ufunc_Id_d_d__Rl__Oerd_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2472 void PyGSL_sf_ufunc_Id_d_d__Rl__Oerd_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2473 {
2474 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3], *op4 = args[4], *op5 = args[5], *op6 = args[6];
2475 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3], os4 = steps[4];
2476 double tmpi0;
2477 double tmpi1;
2478 double tmpi2;
2479
2480 gsl_sf_result_e10 tmpo4;
2481 FUNC_MESS_BEGIN();
2482
2483 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3, op4 += os4){
2484
2485 tmpi0 = *((float *) ip0); /* arg 'double q(const) a'*/
2486 tmpi1 = *((float *) ip1); /* arg 'double q(const) b'*/
2487 tmpi2 = *((float *) ip2); /* arg 'double q(const) x'*/
2488 *((int *) rp3) = ((int (*)(double, double, double, gsl_sf_result_e10 *)) func)(/* double q(const) a */ tmpi0, /* double q(const) b */ tmpi1, /* double q(const) x */ tmpi2, /* gsl_sf_result_e10 p result */ &tmpo4);
2489
2490 *((double *) op4) = (double) tmpo4.val;
2491 *((double *) op5) = (double) tmpo4.err;
2492 *((int *) op6) = (int) tmpo4.e10;
2493 continue;
2494 }
2495 FUNC_MESS_END();
2496
2497 } /* PyGSL_sf_ufunc_Id_d_d__Rl__Oerd_as_minor */
2498
PyGSL_sf_ufunc_Id_d_d_d__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2499 void PyGSL_sf_ufunc_Id_d_d_d__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2500 {
2501 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
2502 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
2503
2504
2505
2506
2507
2508 FUNC_MESS_BEGIN();
2509
2510 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
2511
2512 /* arg 'double a'*/
2513 /* arg 'double b'*/
2514 /* arg 'double c'*/
2515 /* arg 'double x'*/
2516 *((double *) rp4) = ((double (*)(double, double, double, double)) func)(/* double a */ (*((double *) ip0)), /* double b */ (*((double *) ip1)), /* double c */ (*((double *) ip2)), /* double x */ (*((double *) ip3)));
2517
2518 continue;
2519 }
2520 FUNC_MESS_END();
2521
2522 } /* PyGSL_sf_ufunc_Id_d_d_d__Rd__O */
2523
PyGSL_sf_ufunc_Id_d_d_d__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2524 void PyGSL_sf_ufunc_Id_d_d_d__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2525 {
2526 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *ip3 = args[3], *rp4 = args[4];
2527 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], is3 = steps[3], rs4 = steps[4];
2528 double tmpi0;
2529 double tmpi1;
2530 double tmpi2;
2531 double tmpi3;
2532 double tmpr4;
2533 FUNC_MESS_BEGIN();
2534
2535 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, ip3 += is3, rp4 += rs4){
2536
2537 tmpi0 = *((float *) ip0); /* arg 'double a'*/
2538 tmpi1 = *((float *) ip1); /* arg 'double b'*/
2539 tmpi2 = *((float *) ip2); /* arg 'double c'*/
2540 tmpi3 = *((float *) ip3); /* arg 'double x'*/
2541 tmpr4 = ((double (*)(double, double, double, double)) func)(/* double a */ tmpi0, /* double b */ tmpi1, /* double c */ tmpi2, /* double x */ tmpi3);
2542 (*((float *) rp4)) = (float) tmpr4;
2543 continue;
2544 }
2545 FUNC_MESS_END();
2546
2547 } /* PyGSL_sf_ufunc_Id_d_d_d__Rd__O_as_minor */
2548
PyGSL_sf_ufunc_Id_l__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2549 void PyGSL_sf_ufunc_Id_l__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2550 {
2551 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
2552 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
2553
2554 int tmpi1;
2555 int tmpr2;
2556 gsl_sf_result tmpo3;
2557 FUNC_MESS_BEGIN();
2558
2559 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
2560
2561 /* arg 'double x'*/
2562 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int n'*/
2563 tmpr2 = ((int (*)(double, int, gsl_sf_result *)) func)(/* double x */ (*((double *) ip0)), /* int n */ tmpi1, /* gsl_sf_result p result */ &tmpo3);
2564 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr2, (long) tmpr2);
2565 *((long *) rp2) = 0L;
2566 *((long *) rp2) = (long) tmpr2;
2567 *((double *) op3) = (double) tmpo3.val;
2568 *((double *) op4) = (double) tmpo3.err;
2569 continue;
2570
2571 fail:
2572 FUNC_MESS("FAIL");
2573
2574 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2575
2576 *((int *) rp2) = INT_MIN;
2577 *((double *) op3) = _PyGSL_NAN;
2578 *((double *) op4) = _PyGSL_NAN;
2579 }
2580 FUNC_MESS_END();
2581
2582 } /* PyGSL_sf_ufunc_Id_l__Rl__Ord */
2583
PyGSL_sf_ufunc_Id_l__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2584 void PyGSL_sf_ufunc_Id_l__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2585 {
2586 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2], *op3 = args[3], *op4 = args[4];
2587 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2], os3 = steps[3], os4 = steps[4];
2588 double tmpi0;
2589
2590
2591 gsl_sf_result tmpo3;
2592 FUNC_MESS_BEGIN();
2593
2594 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2, op3 += os3, op4 += os4){
2595
2596 tmpi0 = *((float *) ip0); /* arg 'double x'*/
2597 /* arg 'int n'*/
2598 *((int *) rp2) = ((int (*)(double, int, gsl_sf_result *)) func)(/* double x */ tmpi0, /* int n */ (*((int *) ip1)), /* gsl_sf_result p result */ &tmpo3);
2599
2600 *((float *) op3) = (float) tmpo3.val;
2601 *((float *) op4) = (float) tmpo3.err;
2602 continue;
2603 }
2604 FUNC_MESS_END();
2605
2606 } /* PyGSL_sf_ufunc_Id_l__Rl__Ord_as_minor */
2607
PyGSL_sf_ufunc_Id_l__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2608 void PyGSL_sf_ufunc_Id_l__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2609 {
2610 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2611 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2612
2613 int tmpi1;
2614
2615 FUNC_MESS_BEGIN();
2616
2617 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2618
2619 /* arg 'double q(const) x'*/
2620 if( (_PyGSL_SF_L_TO_I(*((long *) ip1), &tmpi1)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip1), tmpi1); goto fail;} /* arg 'int q(const) n'*/
2621 *((double *) rp2) = ((double (*)(double, int)) func)(/* double q(const) x */ (*((double *) ip0)), /* int q(const) n */ tmpi1);
2622
2623 continue;
2624
2625 fail:
2626 FUNC_MESS("FAIL");
2627
2628 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2629
2630 *((double *) rp2) = _PyGSL_NAN;
2631 }
2632 FUNC_MESS_END();
2633
2634 } /* PyGSL_sf_ufunc_Id_l__Rd__O */
2635
PyGSL_sf_ufunc_Id_l__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2636 void PyGSL_sf_ufunc_Id_l__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2637 {
2638 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2639 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2640 double tmpi0;
2641
2642 double tmpr2;
2643 FUNC_MESS_BEGIN();
2644
2645 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2646
2647 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
2648 /* arg 'int q(const) n'*/
2649 tmpr2 = ((double (*)(double, int)) func)(/* double q(const) x */ tmpi0, /* int q(const) n */ (*((int *) ip1)));
2650 (*((float *) rp2)) = (float) tmpr2;
2651 continue;
2652 }
2653 FUNC_MESS_END();
2654
2655 } /* PyGSL_sf_ufunc_Id_l__Rd__O_as_minor */
2656
PyGSL_sf_ufunc_Il__Rl__Ord(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2657 void PyGSL_sf_ufunc_Il__Rl__Ord (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2658 {
2659 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
2660 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
2661 int tmpi0;
2662 int tmpr1;
2663 gsl_sf_result tmpo2;
2664 FUNC_MESS_BEGIN();
2665
2666 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
2667
2668 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) n'*/
2669 tmpr1 = ((int (*)(int, gsl_sf_result *)) func)(/* int q(const) n */ tmpi0, /* gsl_sf_result p result */ &tmpo2);
2670 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
2671 *((long *) rp1) = 0L;
2672 *((long *) rp1) = (long) tmpr1;
2673 *((double *) op2) = (double) tmpo2.val;
2674 *((double *) op3) = (double) tmpo2.err;
2675 continue;
2676
2677 fail:
2678 FUNC_MESS("FAIL");
2679
2680 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2681
2682 *((int *) rp1) = INT_MIN;
2683 *((double *) op2) = _PyGSL_NAN;
2684 *((double *) op3) = _PyGSL_NAN;
2685 }
2686 FUNC_MESS_END();
2687
2688 } /* PyGSL_sf_ufunc_Il__Rl__Ord */
2689
PyGSL_sf_ufunc_Il__Rl__Ord_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2690 void PyGSL_sf_ufunc_Il__Rl__Ord_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2691 {
2692 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2], *op3 = args[3];
2693 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2], os3 = steps[3];
2694
2695
2696 gsl_sf_result tmpo2;
2697 FUNC_MESS_BEGIN();
2698
2699 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2, op3 += os3){
2700
2701 /* arg 'int q(const) n'*/
2702 *((int *) rp1) = ((int (*)(int, gsl_sf_result *)) func)(/* int q(const) n */ (*((int *) ip0)), /* gsl_sf_result p result */ &tmpo2);
2703
2704 *((float *) op2) = (float) tmpo2.val;
2705 *((float *) op3) = (float) tmpo2.err;
2706 continue;
2707 }
2708 FUNC_MESS_END();
2709
2710 } /* PyGSL_sf_ufunc_Il__Rl__Ord_as_minor */
2711
PyGSL_sf_ufunc_Il__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2712 void PyGSL_sf_ufunc_Il__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2713 {
2714 char *ip0 = args[0], *rp1 = args[1];
2715 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2716 int tmpi0;
2717
2718 FUNC_MESS_BEGIN();
2719
2720 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2721
2722 if( (_PyGSL_SF_L_TO_I(*((long *) ip0), &tmpi0)) != GSL_SUCCESS){ DEBUG_MESS(2, "Failed: (long) %ld, int %d", *((long *) ip0), tmpi0); goto fail;} /* arg 'int q(const) n'*/
2723 *((double *) rp1) = ((double (*)(int)) func)(/* int q(const) n */ tmpi0);
2724
2725 continue;
2726
2727 fail:
2728 FUNC_MESS("FAIL");
2729
2730 DEBUG_MESS(3, "Failed in loop %ld", (long) i);
2731
2732 *((double *) rp1) = _PyGSL_NAN;
2733 }
2734 FUNC_MESS_END();
2735
2736 } /* PyGSL_sf_ufunc_Il__Rd__O */
2737
PyGSL_sf_ufunc_Il__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2738 void PyGSL_sf_ufunc_Il__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2739 {
2740 char *ip0 = args[0], *rp1 = args[1];
2741 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2742
2743 double tmpr1;
2744 FUNC_MESS_BEGIN();
2745
2746 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2747
2748 /* arg 'int q(const) n'*/
2749 tmpr1 = ((double (*)(int)) func)(/* int q(const) n */ (*((int *) ip0)));
2750 (*((float *) rp1)) = (float) tmpr1;
2751 continue;
2752 }
2753 FUNC_MESS_END();
2754
2755 } /* PyGSL_sf_ufunc_Il__Rd__O_as_minor */
2756
PyGSL_sf_ufunc_Id_d__RD__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2757 void PyGSL_sf_ufunc_Id_d__RD__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2758 {
2759 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2760 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2761
2762
2763 gsl_complex tmpr2;
2764 FUNC_MESS_BEGIN();
2765
2766 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2767
2768 /* arg 'double r'*/
2769 /* arg 'double theta'*/
2770 tmpr2 = ((gsl_complex (*)(double, double)) func)(/* double r */ (*((double *) ip0)), /* double theta */ (*((double *) ip1)));
2771 *(( (double *) rp2) ) = (double) tmpr2.dat[0];
2772 *(( (double *) rp2) + 1) = (double) tmpr2.dat[1];
2773 continue;
2774 }
2775 FUNC_MESS_END();
2776
2777 } /* PyGSL_sf_ufunc_Id_d__RD__O */
2778
PyGSL_sf_ufunc_Id_d__RD__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2779 void PyGSL_sf_ufunc_Id_d__RD__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2780 {
2781 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2782 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2783 double tmpi0;
2784 double tmpi1;
2785 gsl_complex tmpr2;
2786 FUNC_MESS_BEGIN();
2787
2788 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2789
2790 tmpi0 = *((float *) ip0); /* arg 'double r'*/
2791 tmpi1 = *((float *) ip1); /* arg 'double theta'*/
2792 tmpr2 = ((gsl_complex (*)(double, double)) func)(/* double r */ tmpi0, /* double theta */ tmpi1);
2793 *(( (float *) rp2) ) = (float) tmpr2.dat[0];
2794 *(( (float *) rp2) + 1) = (float) tmpr2.dat[1];
2795 continue;
2796 }
2797 FUNC_MESS_END();
2798
2799 } /* PyGSL_sf_ufunc_Id_d__RD__O_as_minor */
2800
PyGSL_sf_ufunc_ID__Rd__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2801 void PyGSL_sf_ufunc_ID__Rd__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2802 {
2803 char *ip0 = args[0], *rp1 = args[1];
2804 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2805 gsl_complex tmpi0;
2806
2807 FUNC_MESS_BEGIN();
2808
2809 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2810
2811 tmpi0 = *((gsl_complex *) ip0); /* arg 'gsl_complex z'*/
2812 *((double *) rp1) = ((double (*)(gsl_complex)) func)(/* gsl_complex z */ tmpi0);
2813
2814 continue;
2815 }
2816 FUNC_MESS_END();
2817
2818 } /* PyGSL_sf_ufunc_ID__Rd__O */
2819
PyGSL_sf_ufunc_ID__Rd__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2820 void PyGSL_sf_ufunc_ID__Rd__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2821 {
2822 char *ip0 = args[0], *rp1 = args[1];
2823 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2824 gsl_complex tmpi0;
2825 double tmpr1;
2826 FUNC_MESS_BEGIN();
2827
2828 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2829
2830 tmpi0.dat[0] = (float) (* (float *) ip0); /* arg 'gsl_complex z'*/
2831 tmpi0.dat[1] = (float) (*((float *) ip0) + 1);
2832 tmpr1 = ((double (*)(gsl_complex)) func)(/* gsl_complex z */ tmpi0);
2833 (*((float *) rp1)) = (float) tmpr1;
2834 continue;
2835 }
2836 FUNC_MESS_END();
2837
2838 } /* PyGSL_sf_ufunc_ID__Rd__O_as_minor */
2839
PyGSL_sf_ufunc_ID_D__RD__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2840 void PyGSL_sf_ufunc_ID_D__RD__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2841 {
2842 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2843 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2844 gsl_complex tmpi0;
2845 gsl_complex tmpi1;
2846 gsl_complex tmpr2;
2847 FUNC_MESS_BEGIN();
2848
2849 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2850
2851 tmpi0 = *((gsl_complex *) ip0); /* arg 'gsl_complex a'*/
2852 tmpi1 = *((gsl_complex *) ip1); /* arg 'gsl_complex b'*/
2853 tmpr2 = ((gsl_complex (*)(gsl_complex, gsl_complex)) func)(/* gsl_complex a */ tmpi0, /* gsl_complex b */ tmpi1);
2854 *(( (double *) rp2) ) = (double) tmpr2.dat[0];
2855 *(( (double *) rp2) + 1) = (double) tmpr2.dat[1];
2856 continue;
2857 }
2858 FUNC_MESS_END();
2859
2860 } /* PyGSL_sf_ufunc_ID_D__RD__O */
2861
PyGSL_sf_ufunc_ID_D__RD__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2862 void PyGSL_sf_ufunc_ID_D__RD__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2863 {
2864 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2865 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2866 gsl_complex tmpi0;
2867 gsl_complex tmpi1;
2868 gsl_complex tmpr2;
2869 FUNC_MESS_BEGIN();
2870
2871 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2872
2873 tmpi0.dat[0] = (float) (* (float *) ip0); /* arg 'gsl_complex a'*/
2874 tmpi0.dat[1] = (float) (*((float *) ip0) + 1);
2875 tmpi1.dat[0] = (float) (* (float *) ip1); /* arg 'gsl_complex b'*/
2876 tmpi1.dat[1] = (float) (*((float *) ip1) + 1);
2877 tmpr2 = ((gsl_complex (*)(gsl_complex, gsl_complex)) func)(/* gsl_complex a */ tmpi0, /* gsl_complex b */ tmpi1);
2878 *(( (float *) rp2) ) = (float) tmpr2.dat[0];
2879 *(( (float *) rp2) + 1) = (float) tmpr2.dat[1];
2880 continue;
2881 }
2882 FUNC_MESS_END();
2883
2884 } /* PyGSL_sf_ufunc_ID_D__RD__O_as_minor */
2885
PyGSL_sf_ufunc_ID_d__RD__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2886 void PyGSL_sf_ufunc_ID_d__RD__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2887 {
2888 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2889 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2890 gsl_complex tmpi0;
2891
2892 gsl_complex tmpr2;
2893 FUNC_MESS_BEGIN();
2894
2895 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2896
2897 tmpi0 = *((gsl_complex *) ip0); /* arg 'gsl_complex a'*/
2898 /* arg 'double x'*/
2899 tmpr2 = ((gsl_complex (*)(gsl_complex, double)) func)(/* gsl_complex a */ tmpi0, /* double x */ (*((double *) ip1)));
2900 *(( (double *) rp2) ) = (double) tmpr2.dat[0];
2901 *(( (double *) rp2) + 1) = (double) tmpr2.dat[1];
2902 continue;
2903 }
2904 FUNC_MESS_END();
2905
2906 } /* PyGSL_sf_ufunc_ID_d__RD__O */
2907
PyGSL_sf_ufunc_ID_d__RD__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2908 void PyGSL_sf_ufunc_ID_d__RD__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2909 {
2910 char *ip0 = args[0], *ip1 = args[1], *rp2 = args[2];
2911 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], rs2 = steps[2];
2912 gsl_complex tmpi0;
2913 double tmpi1;
2914 gsl_complex tmpr2;
2915 FUNC_MESS_BEGIN();
2916
2917 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, rp2 += rs2){
2918
2919 tmpi0.dat[0] = (float) (* (float *) ip0); /* arg 'gsl_complex a'*/
2920 tmpi0.dat[1] = (float) (*((float *) ip0) + 1);
2921 tmpi1 = *((float *) ip1); /* arg 'double x'*/
2922 tmpr2 = ((gsl_complex (*)(gsl_complex, double)) func)(/* gsl_complex a */ tmpi0, /* double x */ tmpi1);
2923 *(( (float *) rp2) ) = (float) tmpr2.dat[0];
2924 *(( (float *) rp2) + 1) = (float) tmpr2.dat[1];
2925 continue;
2926 }
2927 FUNC_MESS_END();
2928
2929 } /* PyGSL_sf_ufunc_ID_d__RD__O_as_minor */
2930
PyGSL_sf_ufunc_ID__RD__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2931 void PyGSL_sf_ufunc_ID__RD__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2932 {
2933 char *ip0 = args[0], *rp1 = args[1];
2934 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2935 gsl_complex tmpi0;
2936 gsl_complex tmpr1;
2937 FUNC_MESS_BEGIN();
2938
2939 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2940
2941 tmpi0 = *((gsl_complex *) ip0); /* arg 'gsl_complex z'*/
2942 tmpr1 = ((gsl_complex (*)(gsl_complex)) func)(/* gsl_complex z */ tmpi0);
2943 *(( (double *) rp1) ) = (double) tmpr1.dat[0];
2944 *(( (double *) rp1) + 1) = (double) tmpr1.dat[1];
2945 continue;
2946 }
2947 FUNC_MESS_END();
2948
2949 } /* PyGSL_sf_ufunc_ID__RD__O */
2950
PyGSL_sf_ufunc_ID__RD__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2951 void PyGSL_sf_ufunc_ID__RD__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2952 {
2953 char *ip0 = args[0], *rp1 = args[1];
2954 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2955 gsl_complex tmpi0;
2956 gsl_complex tmpr1;
2957 FUNC_MESS_BEGIN();
2958
2959 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2960
2961 tmpi0.dat[0] = (float) (* (float *) ip0); /* arg 'gsl_complex z'*/
2962 tmpi0.dat[1] = (float) (*((float *) ip0) + 1);
2963 tmpr1 = ((gsl_complex (*)(gsl_complex)) func)(/* gsl_complex z */ tmpi0);
2964 *(( (float *) rp1) ) = (float) tmpr1.dat[0];
2965 *(( (float *) rp1) + 1) = (float) tmpr1.dat[1];
2966 continue;
2967 }
2968 FUNC_MESS_END();
2969
2970 } /* PyGSL_sf_ufunc_ID__RD__O_as_minor */
2971
PyGSL_sf_ufunc_Id__RD__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2972 void PyGSL_sf_ufunc_Id__RD__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2973 {
2974 char *ip0 = args[0], *rp1 = args[1];
2975 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2976
2977 gsl_complex tmpr1;
2978 FUNC_MESS_BEGIN();
2979
2980 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
2981
2982 /* arg 'double x'*/
2983 tmpr1 = ((gsl_complex (*)(double)) func)(/* double x */ (*((double *) ip0)));
2984 *(( (double *) rp1) ) = (double) tmpr1.dat[0];
2985 *(( (double *) rp1) + 1) = (double) tmpr1.dat[1];
2986 continue;
2987 }
2988 FUNC_MESS_END();
2989
2990 } /* PyGSL_sf_ufunc_Id__RD__O */
2991
PyGSL_sf_ufunc_Id__RD__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)2992 void PyGSL_sf_ufunc_Id__RD__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
2993 {
2994 char *ip0 = args[0], *rp1 = args[1];
2995 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
2996 double tmpi0;
2997 gsl_complex tmpr1;
2998 FUNC_MESS_BEGIN();
2999
3000 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
3001
3002 tmpi0 = *((float *) ip0); /* arg 'double x'*/
3003 tmpr1 = ((gsl_complex (*)(double)) func)(/* double x */ tmpi0);
3004 *(( (float *) rp1) ) = (float) tmpr1.dat[0];
3005 *(( (float *) rp1) + 1) = (float) tmpr1.dat[1];
3006 continue;
3007 }
3008 FUNC_MESS_END();
3009
3010 } /* PyGSL_sf_ufunc_Id__RD__O_as_minor */
3011
PyGSL_sf_ufunc_Id__Rl__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3012 void PyGSL_sf_ufunc_Id__Rl__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3013 {
3014 char *ip0 = args[0], *rp1 = args[1];
3015 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
3016
3017 int tmpr1;
3018 FUNC_MESS_BEGIN();
3019
3020 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
3021
3022 /* arg 'double q(const) x'*/
3023 tmpr1 = ((int (*)(double)) func)(/* double q(const) x */ (*((double *) ip0)));
3024 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr1, (long) tmpr1);
3025 *((long *) rp1) = 0L;
3026 *((long *) rp1) = (long) tmpr1;
3027 continue;
3028 }
3029 FUNC_MESS_END();
3030
3031 } /* PyGSL_sf_ufunc_Id__Rl__O */
3032
PyGSL_sf_ufunc_Id__Rl__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3033 void PyGSL_sf_ufunc_Id__Rl__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3034 {
3035 char *ip0 = args[0], *rp1 = args[1];
3036 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1];
3037 double tmpi0;
3038
3039 FUNC_MESS_BEGIN();
3040
3041 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1){
3042
3043 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
3044 *((int *) rp1) = ((int (*)(double)) func)(/* double q(const) x */ tmpi0);
3045
3046 continue;
3047 }
3048 FUNC_MESS_END();
3049
3050 } /* PyGSL_sf_ufunc_Id__Rl__O_as_minor */
3051
PyGSL_sf_ufunc_Id__Rd__Ol(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3052 void PyGSL_sf_ufunc_Id__Rd__Ol (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3053 {
3054 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2];
3055 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2];
3056
3057
3058 int tmpo2;
3059 FUNC_MESS_BEGIN();
3060
3061 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2){
3062
3063 /* arg 'double q(const) x'*/
3064 *((double *) rp1) = ((double (*)(double, int *)) func)(/* double q(const) x */ (*((double *) ip0)), /* int p e */ &tmpo2);
3065
3066 DEBUG_MESS(3, "long return val : %d -> %ld", tmpo2, (long) tmpo2);
3067 *((long *) op2) = 0L;
3068 *((long *) op2) = (long) tmpo2;
3069 continue;
3070 }
3071 FUNC_MESS_END();
3072
3073 } /* PyGSL_sf_ufunc_Id__Rd__Ol */
3074
PyGSL_sf_ufunc_Id__Rd__Ol_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3075 void PyGSL_sf_ufunc_Id__Rd__Ol_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3076 {
3077 char *ip0 = args[0], *rp1 = args[1], *op2 = args[2];
3078 PyGSL_array_index_t i, is0 = steps[0], rs1 = steps[1], os2 = steps[2];
3079 double tmpi0;
3080 double tmpr1;
3081
3082 FUNC_MESS_BEGIN();
3083
3084 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, rp1 += rs1, op2 += os2){
3085
3086 tmpi0 = *((float *) ip0); /* arg 'double q(const) x'*/
3087 tmpr1 = ((double (*)(double, int *)) func)(/* double q(const) x */ tmpi0, /* int p e */ ((int *) op2));
3088 (*((float *) rp1)) = (float) tmpr1;
3089
3090 continue;
3091 }
3092 FUNC_MESS_END();
3093
3094 } /* PyGSL_sf_ufunc_Id__Rd__Ol_as_minor */
3095
PyGSL_sf_ufunc_Id_d_d__Rl__O(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3096 void PyGSL_sf_ufunc_Id_d_d__Rl__O (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3097 {
3098 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
3099 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
3100
3101
3102
3103 int tmpr3;
3104 FUNC_MESS_BEGIN();
3105
3106 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
3107
3108 /* arg 'double q(const) x1'*/
3109 /* arg 'double q(const) x2'*/
3110 /* arg 'double q(const) epsilon'*/
3111 tmpr3 = ((int (*)(double, double, double)) func)(/* double q(const) x1 */ (*((double *) ip0)), /* double q(const) x2 */ (*((double *) ip1)), /* double q(const) epsilon */ (*((double *) ip2)));
3112 DEBUG_MESS(3, "long return val : %d -> %ld", tmpr3, (long) tmpr3);
3113 *((long *) rp3) = 0L;
3114 *((long *) rp3) = (long) tmpr3;
3115 continue;
3116 }
3117 FUNC_MESS_END();
3118
3119 } /* PyGSL_sf_ufunc_Id_d_d__Rl__O */
3120
PyGSL_sf_ufunc_Id_d_d__Rl__O_as_minor(char ** args,PyGSL_array_index_t * dimensions,PyGSL_array_index_t * steps,void * func)3121 void PyGSL_sf_ufunc_Id_d_d__Rl__O_as_minor (char **args, PyGSL_array_index_t *dimensions, PyGSL_array_index_t *steps, void *func)
3122 {
3123 char *ip0 = args[0], *ip1 = args[1], *ip2 = args[2], *rp3 = args[3];
3124 PyGSL_array_index_t i, is0 = steps[0], is1 = steps[1], is2 = steps[2], rs3 = steps[3];
3125 double tmpi0;
3126 double tmpi1;
3127 double tmpi2;
3128
3129 FUNC_MESS_BEGIN();
3130
3131 for(i = 0; i < dimensions[0]; ++i, ip0 += is0, ip1 += is1, ip2 += is2, rp3 += rs3){
3132
3133 tmpi0 = *((float *) ip0); /* arg 'double q(const) x1'*/
3134 tmpi1 = *((float *) ip1); /* arg 'double q(const) x2'*/
3135 tmpi2 = *((float *) ip2); /* arg 'double q(const) epsilon'*/
3136 *((int *) rp3) = ((int (*)(double, double, double)) func)(/* double q(const) x1 */ tmpi0, /* double q(const) x2 */ tmpi1, /* double q(const) epsilon */ tmpi2);
3137
3138 continue;
3139 }
3140 FUNC_MESS_END();
3141
3142 } /* PyGSL_sf_ufunc_Id_d_d__Rl__O_as_minor */
3143