File Coverage

lib/PDL/Ufunc-pp-oddmedover.c

Criterion	Covered	Total	%
statement	32	184	17.3
branch	40	1164	3.4
condition			n/a
subroutine			n/a
pod			n/a
total	72	1348	5.3

line	stmt	bran	code
1
2			#line 453 "lib/PDL/PP.pm"
3			/*
4			* THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Ufunc.pd! Do not modify!
5			*/
6
7			#define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8			if (destroy) { \
9			comp_free_code \
10			} \
11			if ((trans)->dims_redone) { \
12			ntpriv_free_code \
13			}
14
15			#include "EXTERN.h"
16			#include "perl.h"
17			#include "XSUB.h"
18			#include "pdl.h"
19			#include "pdlcore.h"
20			#define PDL PDL_Ufunc
21			extern Core* PDL; /* Structure hold core C functions */
22			#line 23 "lib/PDL/Ufunc-pp-oddmedover.c"
23	10	0	PDL_TYPELIST_REAL(PDL_QSORT)
	0	0
	10	0
	0	0
	0	0
	0	0
	0	100
	0	100
	0	50
	0	100
	0	100
	0	100
	0	0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
24
25
26			#line 1857 "lib/PDL/PP.pm"
27			pdl_error pdl_oddmedover_readdata(pdl_trans *__privtrans) {
28			pdl_error PDL_err = {0, NULL, 0};
29			#line 30 "lib/PDL/Ufunc-pp-oddmedover.c"
30	3		register PDL_Indx __n_size = __privtrans->ind_sizes[0];
31	3	50	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "broadcast.incs NULL");
32			/* broadcastloop declarations */
33			int __brcloopval;
34			register PDL_Indx __tind0,__tind1; /* counters along dim */
35	3		register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
36			/* dims here are how many steps along those dims */
37	3		register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
38	3		register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
39	3		register PDL_Indx __tinc0_tmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
40	3		register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
41	3		register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
42	3		register PDL_Indx __tinc1_tmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
43			#define PDL_BROADCASTLOOP_START_oddmedover_readdata PDL_BROADCASTLOOP_START( \
44			readdata, \
45			__privtrans->broadcast, \
46			__privtrans->vtable, \
47			a_datap += __offsp[0]; \
48			b_datap += __offsp[1]; \
49			tmp_datap += __offsp[2]; \
50			, \
51			( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
52			,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
53			,tmp_datap += __tinc1_tmp - __tinc0_tmp * __tdims0 \
54			), \
55			( ,a_datap += __tinc0_a \
56			,b_datap += __tinc0_b \
57			,tmp_datap += __tinc0_tmp \
58			) \
59			)
60			#define PDL_BROADCASTLOOP_END_oddmedover_readdata PDL_BROADCASTLOOP_END( \
61			__privtrans->broadcast, \
62			a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
63			b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
64			tmp_datap -= __tinc1_tmp * __tdims1 + __offsp[2]; \
65			)
66	3		register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
67	3		register PDL_Indx __inc_tmp_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,2,0)]; (void)__inc_tmp_n;
68			#ifndef PDL_DECLARE_PARAMS_oddmedover_1
69			#define PDL_DECLARE_PARAMS_oddmedover_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
70			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
71			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP) \
72			PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, tmp, (__privtrans->pdls[2]), 1, PDL_PPSYM_OP)
73			#endif
74	3	50	if ( __privtrans->bvalflag ) { /* do 'bad' Code */
75			#define PDL_BAD_CODE
76			#define PDL_IF_BAD(t,f) t
77	0		switch (__privtrans->__datatype) { /* Start generic switch */
78	0		case PDL_SB: {
79	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
80	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
81			#line 866 "lib/PDL/Ufunc.pd"
82
83			if (__privtrans->pdls[0]->nvals == 0)
84			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
85			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
86			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
87			#line 871 "lib/PDL/Ufunc.pd"
88			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,A,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
89			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
90			}} /* Close n */
91			#line 874 "lib/PDL/Ufunc.pd"
92			PDL_IF_BAD(if ( nn == 0 ) {
93			(b_datap)[0]=b_badval;
94			} else {
95			nn -= 1;,{)
96			qsort_A (tmp_datap, 0, nn);
97			#line 98 "lib/PDL/Ufunc-pp-oddmedover.c"
98
99	0		PDL_Indx nn1 = nn/2;
100	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
101	0		} break;
102	0		case PDL_B: {
103	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
104	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
105			#line 866 "lib/PDL/Ufunc.pd"
106
107			if (__privtrans->pdls[0]->nvals == 0)
108			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
109			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
110			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
111			#line 871 "lib/PDL/Ufunc.pd"
112			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,B,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
113			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
114			}} /* Close n */
115			#line 874 "lib/PDL/Ufunc.pd"
116			PDL_IF_BAD(if ( nn == 0 ) {
117			(b_datap)[0]=b_badval;
118			} else {
119			nn -= 1;,{)
120			qsort_B (tmp_datap, 0, nn);
121			#line 122 "lib/PDL/Ufunc-pp-oddmedover.c"
122
123	0		PDL_Indx nn1 = nn/2;
124	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
125	0		} break;
126	0		case PDL_S: {
127	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
128	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
129			#line 866 "lib/PDL/Ufunc.pd"
130
131			if (__privtrans->pdls[0]->nvals == 0)
132			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
133			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
134			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
135			#line 871 "lib/PDL/Ufunc.pd"
136			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,S,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
137			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
138			}} /* Close n */
139			#line 874 "lib/PDL/Ufunc.pd"
140			PDL_IF_BAD(if ( nn == 0 ) {
141			(b_datap)[0]=b_badval;
142			} else {
143			nn -= 1;,{)
144			qsort_S (tmp_datap, 0, nn);
145			#line 146 "lib/PDL/Ufunc-pp-oddmedover.c"
146
147	0		PDL_Indx nn1 = nn/2;
148	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
149	0		} break;
150	0		case PDL_US: {
151	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
152	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
153			#line 866 "lib/PDL/Ufunc.pd"
154
155			if (__privtrans->pdls[0]->nvals == 0)
156			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
157			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
158			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
159			#line 871 "lib/PDL/Ufunc.pd"
160			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,U,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
161			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
162			}} /* Close n */
163			#line 874 "lib/PDL/Ufunc.pd"
164			PDL_IF_BAD(if ( nn == 0 ) {
165			(b_datap)[0]=b_badval;
166			} else {
167			nn -= 1;,{)
168			qsort_U (tmp_datap, 0, nn);
169			#line 170 "lib/PDL/Ufunc-pp-oddmedover.c"
170
171	0		PDL_Indx nn1 = nn/2;
172	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
173	0		} break;
174	0		case PDL_L: {
175	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
176	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
177			#line 866 "lib/PDL/Ufunc.pd"
178
179			if (__privtrans->pdls[0]->nvals == 0)
180			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
181			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
182			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
183			#line 871 "lib/PDL/Ufunc.pd"
184			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,L,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
185			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
186			}} /* Close n */
187			#line 874 "lib/PDL/Ufunc.pd"
188			PDL_IF_BAD(if ( nn == 0 ) {
189			(b_datap)[0]=b_badval;
190			} else {
191			nn -= 1;,{)
192			qsort_L (tmp_datap, 0, nn);
193			#line 194 "lib/PDL/Ufunc-pp-oddmedover.c"
194
195	0		PDL_Indx nn1 = nn/2;
196	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
197	0		} break;
198	0		case PDL_UL: {
199	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
200	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
201			#line 866 "lib/PDL/Ufunc.pd"
202
203			if (__privtrans->pdls[0]->nvals == 0)
204			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
205			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
206			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
207			#line 871 "lib/PDL/Ufunc.pd"
208			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,K,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
209			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
210			}} /* Close n */
211			#line 874 "lib/PDL/Ufunc.pd"
212			PDL_IF_BAD(if ( nn == 0 ) {
213			(b_datap)[0]=b_badval;
214			} else {
215			nn -= 1;,{)
216			qsort_K (tmp_datap, 0, nn);
217			#line 218 "lib/PDL/Ufunc-pp-oddmedover.c"
218
219	0		PDL_Indx nn1 = nn/2;
220	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
221	0		} break;
222	0		case PDL_IND: {
223	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
224	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
225			#line 866 "lib/PDL/Ufunc.pd"
226
227			if (__privtrans->pdls[0]->nvals == 0)
228			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
229			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
230			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
231			#line 871 "lib/PDL/Ufunc.pd"
232			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,N,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
233			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
234			}} /* Close n */
235			#line 874 "lib/PDL/Ufunc.pd"
236			PDL_IF_BAD(if ( nn == 0 ) {
237			(b_datap)[0]=b_badval;
238			} else {
239			nn -= 1;,{)
240			qsort_N (tmp_datap, 0, nn);
241			#line 242 "lib/PDL/Ufunc-pp-oddmedover.c"
242
243	0		PDL_Indx nn1 = nn/2;
244	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
245	0		} break;
246	0		case PDL_ULL: {
247	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
248	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
249			#line 866 "lib/PDL/Ufunc.pd"
250
251			if (__privtrans->pdls[0]->nvals == 0)
252			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
253			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
254			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
255			#line 871 "lib/PDL/Ufunc.pd"
256			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,P,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
257			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
258			}} /* Close n */
259			#line 874 "lib/PDL/Ufunc.pd"
260			PDL_IF_BAD(if ( nn == 0 ) {
261			(b_datap)[0]=b_badval;
262			} else {
263			nn -= 1;,{)
264			qsort_P (tmp_datap, 0, nn);
265			#line 266 "lib/PDL/Ufunc-pp-oddmedover.c"
266
267	0		PDL_Indx nn1 = nn/2;
268	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
269	0		} break;
270	0		case PDL_LL: {
271	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
272	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
273			#line 866 "lib/PDL/Ufunc.pd"
274
275			if (__privtrans->pdls[0]->nvals == 0)
276			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
277			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
278			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
279			#line 871 "lib/PDL/Ufunc.pd"
280			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,Q,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
281			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
282			}} /* Close n */
283			#line 874 "lib/PDL/Ufunc.pd"
284			PDL_IF_BAD(if ( nn == 0 ) {
285			(b_datap)[0]=b_badval;
286			} else {
287			nn -= 1;,{)
288			qsort_Q (tmp_datap, 0, nn);
289			#line 290 "lib/PDL/Ufunc-pp-oddmedover.c"
290
291	0		PDL_Indx nn1 = nn/2;
292	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
293	0		} break;
294	0		case PDL_F: {
295	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
296	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
297			#line 866 "lib/PDL/Ufunc.pd"
298
299			if (__privtrans->pdls[0]->nvals == 0)
300			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
301			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
302			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
303			#line 871 "lib/PDL/Ufunc.pd"
304			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,F,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
305			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
306			}} /* Close n */
307			#line 874 "lib/PDL/Ufunc.pd"
308			PDL_IF_BAD(if ( nn == 0 ) {
309			(b_datap)[0]=b_badval;
310			} else {
311			nn -= 1;,{)
312			qsort_F (tmp_datap, 0, nn);
313			#line 314 "lib/PDL/Ufunc-pp-oddmedover.c"
314
315	0		PDL_Indx nn1 = nn/2;
316	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
317	0		} break;
318	0		case PDL_D: {
319	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Double,D)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
320	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
321			#line 866 "lib/PDL/Ufunc.pd"
322
323			if (__privtrans->pdls[0]->nvals == 0)
324			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
325			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
326			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
327			#line 871 "lib/PDL/Ufunc.pd"
328			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,D,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
329			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
330			}} /* Close n */
331			#line 874 "lib/PDL/Ufunc.pd"
332			PDL_IF_BAD(if ( nn == 0 ) {
333			(b_datap)[0]=b_badval;
334			} else {
335			nn -= 1;,{)
336			qsort_D (tmp_datap, 0, nn);
337			#line 338 "lib/PDL/Ufunc-pp-oddmedover.c"
338
339	0		PDL_Indx nn1 = nn/2;
340	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
341	0		} break;
342	0		case PDL_LD: {
343	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
344	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
345			#line 866 "lib/PDL/Ufunc.pd"
346
347			if (__privtrans->pdls[0]->nvals == 0)
348			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
349			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
350			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
351			#line 871 "lib/PDL/Ufunc.pd"
352			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,E,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
353			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
354			}} /* Close n */
355			#line 874 "lib/PDL/Ufunc.pd"
356			PDL_IF_BAD(if ( nn == 0 ) {
357			(b_datap)[0]=b_badval;
358			} else {
359			nn -= 1;,{)
360			qsort_E (tmp_datap, 0, nn);
361			#line 362 "lib/PDL/Ufunc-pp-oddmedover.c"
362
363	0		PDL_Indx nn1 = nn/2;
364	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
365	0		} break;
366	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in oddmedover: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
367			}
368			#undef PDL_BAD_CODE
369			#undef PDL_IF_BAD
370			} else { /* else do 'good' Code */
371			#define PDL_IF_BAD(t,f) f
372	3		switch (__privtrans->__datatype) { /* Start generic switch */
373	0		case PDL_SB: {
374	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_SByte,A)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
375	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
376			#line 866 "lib/PDL/Ufunc.pd"
377
378			if (__privtrans->pdls[0]->nvals == 0)
379			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
380			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
381			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
382			#line 871 "lib/PDL/Ufunc.pd"
383			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,A,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
384			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
385			}} /* Close n */
386			#line 874 "lib/PDL/Ufunc.pd"
387			PDL_IF_BAD(if ( nn == 0 ) {
388			(b_datap)[0]=b_badval;
389			} else {
390			nn -= 1;,{)
391			qsort_A (tmp_datap, 0, nn);
392			#line 393 "lib/PDL/Ufunc-pp-oddmedover.c"
393
394	0		PDL_Indx nn1 = nn/2;
395	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
396	0		} break;
397	0		case PDL_B: {
398	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Byte,B)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
399	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
400			#line 866 "lib/PDL/Ufunc.pd"
401
402			if (__privtrans->pdls[0]->nvals == 0)
403			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
404			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
405			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
406			#line 871 "lib/PDL/Ufunc.pd"
407			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,B,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
408			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
409			}} /* Close n */
410			#line 874 "lib/PDL/Ufunc.pd"
411			PDL_IF_BAD(if ( nn == 0 ) {
412			(b_datap)[0]=b_badval;
413			} else {
414			nn -= 1;,{)
415			qsort_B (tmp_datap, 0, nn);
416			#line 417 "lib/PDL/Ufunc-pp-oddmedover.c"
417
418	0		PDL_Indx nn1 = nn/2;
419	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
420	0		} break;
421	0		case PDL_S: {
422	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Short,S)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
423	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
424			#line 866 "lib/PDL/Ufunc.pd"
425
426			if (__privtrans->pdls[0]->nvals == 0)
427			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
428			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
429			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
430			#line 871 "lib/PDL/Ufunc.pd"
431			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,S,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
432			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
433			}} /* Close n */
434			#line 874 "lib/PDL/Ufunc.pd"
435			PDL_IF_BAD(if ( nn == 0 ) {
436			(b_datap)[0]=b_badval;
437			} else {
438			nn -= 1;,{)
439			qsort_S (tmp_datap, 0, nn);
440			#line 441 "lib/PDL/Ufunc-pp-oddmedover.c"
441
442	0		PDL_Indx nn1 = nn/2;
443	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
444	0		} break;
445	0		case PDL_US: {
446	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Ushort,U)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
447	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
448			#line 866 "lib/PDL/Ufunc.pd"
449
450			if (__privtrans->pdls[0]->nvals == 0)
451			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
452			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
453			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
454			#line 871 "lib/PDL/Ufunc.pd"
455			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,U,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
456			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
457			}} /* Close n */
458			#line 874 "lib/PDL/Ufunc.pd"
459			PDL_IF_BAD(if ( nn == 0 ) {
460			(b_datap)[0]=b_badval;
461			} else {
462			nn -= 1;,{)
463			qsort_U (tmp_datap, 0, nn);
464			#line 465 "lib/PDL/Ufunc-pp-oddmedover.c"
465
466	0		PDL_Indx nn1 = nn/2;
467	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
468	0		} break;
469	0		case PDL_L: {
470	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Long,L)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
471	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
472			#line 866 "lib/PDL/Ufunc.pd"
473
474			if (__privtrans->pdls[0]->nvals == 0)
475			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
476			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
477			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
478			#line 871 "lib/PDL/Ufunc.pd"
479			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,L,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
480			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
481			}} /* Close n */
482			#line 874 "lib/PDL/Ufunc.pd"
483			PDL_IF_BAD(if ( nn == 0 ) {
484			(b_datap)[0]=b_badval;
485			} else {
486			nn -= 1;,{)
487			qsort_L (tmp_datap, 0, nn);
488			#line 489 "lib/PDL/Ufunc-pp-oddmedover.c"
489
490	0		PDL_Indx nn1 = nn/2;
491	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
492	0		} break;
493	0		case PDL_UL: {
494	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_ULong,K)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
495	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
496			#line 866 "lib/PDL/Ufunc.pd"
497
498			if (__privtrans->pdls[0]->nvals == 0)
499			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
500			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
501			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
502			#line 871 "lib/PDL/Ufunc.pd"
503			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,K,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
504			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
505			}} /* Close n */
506			#line 874 "lib/PDL/Ufunc.pd"
507			PDL_IF_BAD(if ( nn == 0 ) {
508			(b_datap)[0]=b_badval;
509			} else {
510			nn -= 1;,{)
511			qsort_K (tmp_datap, 0, nn);
512			#line 513 "lib/PDL/Ufunc-pp-oddmedover.c"
513
514	0		PDL_Indx nn1 = nn/2;
515	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
516	0		} break;
517	0		case PDL_IND: {
518	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Indx,N)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
519	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
520			#line 866 "lib/PDL/Ufunc.pd"
521
522			if (__privtrans->pdls[0]->nvals == 0)
523			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
524			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
525			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
526			#line 871 "lib/PDL/Ufunc.pd"
527			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,N,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
528			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
529			}} /* Close n */
530			#line 874 "lib/PDL/Ufunc.pd"
531			PDL_IF_BAD(if ( nn == 0 ) {
532			(b_datap)[0]=b_badval;
533			} else {
534			nn -= 1;,{)
535			qsort_N (tmp_datap, 0, nn);
536			#line 537 "lib/PDL/Ufunc-pp-oddmedover.c"
537
538	0		PDL_Indx nn1 = nn/2;
539	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
540	0		} break;
541	0		case PDL_ULL: {
542	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_ULongLong,P)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
543	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
544			#line 866 "lib/PDL/Ufunc.pd"
545
546			if (__privtrans->pdls[0]->nvals == 0)
547			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
548			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
549			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
550			#line 871 "lib/PDL/Ufunc.pd"
551			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,P,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
552			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
553			}} /* Close n */
554			#line 874 "lib/PDL/Ufunc.pd"
555			PDL_IF_BAD(if ( nn == 0 ) {
556			(b_datap)[0]=b_badval;
557			} else {
558			nn -= 1;,{)
559			qsort_P (tmp_datap, 0, nn);
560			#line 561 "lib/PDL/Ufunc-pp-oddmedover.c"
561
562	0		PDL_Indx nn1 = nn/2;
563	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
564	0		} break;
565	0		case PDL_LL: {
566	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_LongLong,Q)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
567	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
568			#line 866 "lib/PDL/Ufunc.pd"
569
570			if (__privtrans->pdls[0]->nvals == 0)
571			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
572			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
573			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
574			#line 871 "lib/PDL/Ufunc.pd"
575			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,Q,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
576			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
577			}} /* Close n */
578			#line 874 "lib/PDL/Ufunc.pd"
579			PDL_IF_BAD(if ( nn == 0 ) {
580			(b_datap)[0]=b_badval;
581			} else {
582			nn -= 1;,{)
583			qsort_Q (tmp_datap, 0, nn);
584			#line 585 "lib/PDL/Ufunc-pp-oddmedover.c"
585
586	0		PDL_Indx nn1 = nn/2;
587	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
588	0		} break;
589	0		case PDL_F: {
590	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Float,F)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
591	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
592			#line 866 "lib/PDL/Ufunc.pd"
593
594			if (__privtrans->pdls[0]->nvals == 0)
595			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
596			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
597			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
598			#line 871 "lib/PDL/Ufunc.pd"
599			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,F,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
600			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
601			}} /* Close n */
602			#line 874 "lib/PDL/Ufunc.pd"
603			PDL_IF_BAD(if ( nn == 0 ) {
604			(b_datap)[0]=b_badval;
605			} else {
606			nn -= 1;,{)
607			qsort_F (tmp_datap, 0, nn);
608			#line 609 "lib/PDL/Ufunc-pp-oddmedover.c"
609
610	0		PDL_Indx nn1 = nn/2;
611	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
612	0		} break;
613	3		case PDL_D: {
614	3	50	PDL_DECLARE_PARAMS_oddmedover_1(PDL_Double,D)
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
		50
615	12	50	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		50
		50
		50
		50
		100
		100
616			#line 866 "lib/PDL/Ufunc.pd"
617
618			if (__privtrans->pdls[0]->nvals == 0)
619			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
620			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
621			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
622			#line 871 "lib/PDL/Ufunc.pd"
623			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,D,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
624			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
625			}} /* Close n */
626			#line 874 "lib/PDL/Ufunc.pd"
627			PDL_IF_BAD(if ( nn == 0 ) {
628			(b_datap)[0]=b_badval;
629			} else {
630			nn -= 1;,{)
631			qsort_D (tmp_datap, 0, nn);
632			#line 633 "lib/PDL/Ufunc-pp-oddmedover.c"
633
634	3		PDL_Indx nn1 = nn/2;
635	6	50	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		50
636	3		} break;
637	0		case PDL_LD: {
638	0	0	PDL_DECLARE_PARAMS_oddmedover_1(PDL_LDouble,E)
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
		0
639	0	0	PDL_BROADCASTLOOP_START_oddmedover_readdata {
		0
		0
		0
		0
		0
		0
640			#line 866 "lib/PDL/Ufunc.pd"
641
642			if (__privtrans->pdls[0]->nvals == 0)
643			return PDL->make_error(PDL_EUSERERROR, "Error in oddmedover:" "cannot process empty ndarray");
644			PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
645			{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
646			#line 871 "lib/PDL/Ufunc.pd"
647			PDL_IF_BAD(if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n(n))],a_badval,E,a_badval_isnan) ) { (tmp_datap)[0+(__inc_tmp_n(nn))] = (a_datap)[0+(__inc_a_n*(n))]; nn++; },
648			(tmp_datap)[0+(__inc_tmp_n(n))] = (a_datap)[0+(__inc_a_n(n))];)
649			}} /* Close n */
650			#line 874 "lib/PDL/Ufunc.pd"
651			PDL_IF_BAD(if ( nn == 0 ) {
652			(b_datap)[0]=b_badval;
653			} else {
654			nn -= 1;,{)
655			qsort_E (tmp_datap, 0, nn);
656			#line 657 "lib/PDL/Ufunc-pp-oddmedover.c"
657
658	0		PDL_Indx nn1 = nn/2;
659	0	0	(b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];}}PDL_BROADCASTLOOP_END_oddmedover_readdata
		0
660	0		} break;
661	0		default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in oddmedover: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
662			}
663			#undef PDL_IF_BAD
664			}
665	3		return PDL_err;
666			}
667
668			static pdl_datatypes pdl_oddmedover_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, -1 };
669			static PDL_Indx pdl_oddmedover_vtable_realdims[] = { 1, 0, 1 };
670			static char *pdl_oddmedover_vtable_parnames[] = { "a","b","tmp" };
671			static short pdl_oddmedover_vtable_parflags[] = {
672			0,
673			PDL_PARAM_ISCREAT\|PDL_PARAM_ISOUT\|PDL_PARAM_ISWRITE,
674			PDL_PARAM_ISCREAT\|PDL_PARAM_ISPHYS\|PDL_PARAM_ISTEMP\|PDL_PARAM_ISWRITE
675			};
676			static pdl_datatypes pdl_oddmedover_vtable_partypes[] = { -1, -1, -1 };
677			static PDL_Indx pdl_oddmedover_vtable_realdims_starts[] = { 0, 1, 1 };
678			static PDL_Indx pdl_oddmedover_vtable_realdims_ind_ids[] = { 0, 0 };
679			static char *pdl_oddmedover_vtable_indnames[] = { "n" };
680			pdl_transvtable pdl_oddmedover_vtable = {
681			PDL_TRANS_DO_BROADCAST\|PDL_TRANS_BADPROCESS, 0, pdl_oddmedover_vtable_gentypes, 1, 3, NULL /CORE21/,
682			pdl_oddmedover_vtable_realdims, pdl_oddmedover_vtable_parnames,
683			pdl_oddmedover_vtable_parflags, pdl_oddmedover_vtable_partypes,
684			pdl_oddmedover_vtable_realdims_starts, pdl_oddmedover_vtable_realdims_ind_ids, 2,
685			1, pdl_oddmedover_vtable_indnames,
686			NULL, pdl_oddmedover_readdata, NULL,
687			NULL,
688			0,"PDL::Ufunc::oddmedover"
689			};
690
691
692	3		pdl_error pdl_run_oddmedover(pdl a,pdl b) {
693	3		pdl_error PDL_err = {0, NULL, 0};
694	3	50	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
695	3		pdl_trans *__privtrans = PDL->create_trans(&pdl_oddmedover_vtable);
696	3	50	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
697	3		__privtrans->pdls[0] = a;
698	3		__privtrans->pdls[1] = b;
699	3	50	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
700	3	50	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
701	3		return PDL_err;
702			}