File Coverage

lib/PDL/Ufunc-pp-medover.c
Criterion Covered Total %
statement 94 256 36.7
branch 256 1212 21.1
condition n/a
subroutine n/a
pod n/a
total 350 1468 23.8


line stmt bran cond sub pod time 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-medover.c"
23 1137 0         PDL_TYPELIST_REAL(PDL_QSORT)
  0 0          
  938 0          
  18 0          
  0 0          
  0 0          
  0 100          
  0 100          
  18 100          
  0 100          
  129 100          
  34 100          
  0 100          
    100          
    100          
    100          
    100          
    50          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    100          
    100          
    100          
    100          
    100          
    50          
    0          
    0          
    0          
    0          
    0          
    0          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    100          
    0          
    0          
    0          
    0          
    0          
    0          
24              
25              
26             #line 1857 "lib/PDL/PP.pm"
27             pdl_error pdl_medover_readdata(pdl_trans *__privtrans) {
28             pdl_error PDL_err = {0, NULL, 0};
29             #line 30 "lib/PDL/Ufunc-pp-medover.c"
30 33           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
31 33 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "broadcast.incs NULL");
32             /* broadcastloop declarations */
33             int __brcloopval;
34             register PDL_Indx __tind0,__tind1; /* counters along dim */
35 33           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
36             /* dims here are how many steps along those dims */
37 33           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
38 33           register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
39 33           register PDL_Indx __tinc0_tmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,0);
40 33           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
41 33           register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
42 33           register PDL_Indx __tinc1_tmp = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,2,1);
43             #define PDL_BROADCASTLOOP_START_medover_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_medover_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 33           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
67 33           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_medover_1
69             #define PDL_DECLARE_PARAMS_medover_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 33 100         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
75             #define PDL_BAD_CODE
76             #define PDL_IF_BAD(t,f) t
77 7           switch (__privtrans->__datatype) { /* Start generic switch */
78 0           case PDL_SB: {
79 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
80 0 0         PDL_BROADCASTLOOP_START_medover_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 medover:" "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-medover.c"
98              
99 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
100 0 0         if (nn%2==0) {
101 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
102             }
103             else {
104 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
105 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
106 0           } break;
107 1           case PDL_B: {
108 1 50         PDL_DECLARE_PARAMS_medover_1(PDL_Byte,B)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
109 4 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
110             #line 866 "lib/PDL/Ufunc.pd"
111              
112             if (__privtrans->pdls[0]->nvals == 0)
113             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
114             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
115             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
116             #line 871 "lib/PDL/Ufunc.pd"
117             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++; },
118             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
119             }} /* Close n */
120             #line 874 "lib/PDL/Ufunc.pd"
121             PDL_IF_BAD(if ( nn == 0 ) {
122             (b_datap)[0]=b_badval;
123             } else {
124             nn -= 1;,{)
125             qsort_B (tmp_datap, 0, nn);
126             #line 127 "lib/PDL/Ufunc-pp-medover.c"
127              
128 1           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
129 1 50         if (nn%2==0) {
130 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
131             }
132             else {
133 1           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
134 1 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
135 1           } break;
136 0           case PDL_S: {
137 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
138 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
139             #line 866 "lib/PDL/Ufunc.pd"
140              
141             if (__privtrans->pdls[0]->nvals == 0)
142             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
143             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
144             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
145             #line 871 "lib/PDL/Ufunc.pd"
146             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++; },
147             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
148             }} /* Close n */
149             #line 874 "lib/PDL/Ufunc.pd"
150             PDL_IF_BAD(if ( nn == 0 ) {
151             (b_datap)[0]=b_badval;
152             } else {
153             nn -= 1;,{)
154             qsort_S (tmp_datap, 0, nn);
155             #line 156 "lib/PDL/Ufunc-pp-medover.c"
156              
157 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
158 0 0         if (nn%2==0) {
159 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
160             }
161             else {
162 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
163 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
164 0           } break;
165 0           case PDL_US: {
166 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
167 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
168             #line 866 "lib/PDL/Ufunc.pd"
169              
170             if (__privtrans->pdls[0]->nvals == 0)
171             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
172             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
173             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
174             #line 871 "lib/PDL/Ufunc.pd"
175             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++; },
176             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
177             }} /* Close n */
178             #line 874 "lib/PDL/Ufunc.pd"
179             PDL_IF_BAD(if ( nn == 0 ) {
180             (b_datap)[0]=b_badval;
181             } else {
182             nn -= 1;,{)
183             qsort_U (tmp_datap, 0, nn);
184             #line 185 "lib/PDL/Ufunc-pp-medover.c"
185              
186 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
187 0 0         if (nn%2==0) {
188 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
189             }
190             else {
191 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
192 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
193 0           } break;
194 0           case PDL_L: {
195 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
196 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
197             #line 866 "lib/PDL/Ufunc.pd"
198              
199             if (__privtrans->pdls[0]->nvals == 0)
200             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
201             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
202             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
203             #line 871 "lib/PDL/Ufunc.pd"
204             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++; },
205             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
206             }} /* Close n */
207             #line 874 "lib/PDL/Ufunc.pd"
208             PDL_IF_BAD(if ( nn == 0 ) {
209             (b_datap)[0]=b_badval;
210             } else {
211             nn -= 1;,{)
212             qsort_L (tmp_datap, 0, nn);
213             #line 214 "lib/PDL/Ufunc-pp-medover.c"
214              
215 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
216 0 0         if (nn%2==0) {
217 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
218             }
219             else {
220 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
221 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
222 0           } break;
223 0           case PDL_UL: {
224 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
225 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
226             #line 866 "lib/PDL/Ufunc.pd"
227              
228             if (__privtrans->pdls[0]->nvals == 0)
229             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
230             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
231             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
232             #line 871 "lib/PDL/Ufunc.pd"
233             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++; },
234             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
235             }} /* Close n */
236             #line 874 "lib/PDL/Ufunc.pd"
237             PDL_IF_BAD(if ( nn == 0 ) {
238             (b_datap)[0]=b_badval;
239             } else {
240             nn -= 1;,{)
241             qsort_K (tmp_datap, 0, nn);
242             #line 243 "lib/PDL/Ufunc-pp-medover.c"
243              
244 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
245 0 0         if (nn%2==0) {
246 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
247             }
248             else {
249 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
250 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
251 0           } break;
252 0           case PDL_IND: {
253 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
254 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
255             #line 866 "lib/PDL/Ufunc.pd"
256              
257             if (__privtrans->pdls[0]->nvals == 0)
258             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
259             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
260             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
261             #line 871 "lib/PDL/Ufunc.pd"
262             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++; },
263             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
264             }} /* Close n */
265             #line 874 "lib/PDL/Ufunc.pd"
266             PDL_IF_BAD(if ( nn == 0 ) {
267             (b_datap)[0]=b_badval;
268             } else {
269             nn -= 1;,{)
270             qsort_N (tmp_datap, 0, nn);
271             #line 272 "lib/PDL/Ufunc-pp-medover.c"
272              
273 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
274 0 0         if (nn%2==0) {
275 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
276             }
277             else {
278 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
279 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
280 0           } break;
281 0           case PDL_ULL: {
282 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
283 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
284             #line 866 "lib/PDL/Ufunc.pd"
285              
286             if (__privtrans->pdls[0]->nvals == 0)
287             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
288             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
289             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
290             #line 871 "lib/PDL/Ufunc.pd"
291             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++; },
292             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
293             }} /* Close n */
294             #line 874 "lib/PDL/Ufunc.pd"
295             PDL_IF_BAD(if ( nn == 0 ) {
296             (b_datap)[0]=b_badval;
297             } else {
298             nn -= 1;,{)
299             qsort_P (tmp_datap, 0, nn);
300             #line 301 "lib/PDL/Ufunc-pp-medover.c"
301              
302 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
303 0 0         if (nn%2==0) {
304 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
305             }
306             else {
307 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
308 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
309 0           } break;
310 0           case PDL_LL: {
311 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
312 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
313             #line 866 "lib/PDL/Ufunc.pd"
314              
315             if (__privtrans->pdls[0]->nvals == 0)
316             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
317             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
318             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
319             #line 871 "lib/PDL/Ufunc.pd"
320             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++; },
321             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
322             }} /* Close n */
323             #line 874 "lib/PDL/Ufunc.pd"
324             PDL_IF_BAD(if ( nn == 0 ) {
325             (b_datap)[0]=b_badval;
326             } else {
327             nn -= 1;,{)
328             qsort_Q (tmp_datap, 0, nn);
329             #line 330 "lib/PDL/Ufunc-pp-medover.c"
330              
331 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
332 0 0         if (nn%2==0) {
333 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
334             }
335             else {
336 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
337 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
338 0           } break;
339 0           case PDL_F: {
340 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
341 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
342             #line 866 "lib/PDL/Ufunc.pd"
343              
344             if (__privtrans->pdls[0]->nvals == 0)
345             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
346             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
347             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
348             #line 871 "lib/PDL/Ufunc.pd"
349             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++; },
350             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
351             }} /* Close n */
352             #line 874 "lib/PDL/Ufunc.pd"
353             PDL_IF_BAD(if ( nn == 0 ) {
354             (b_datap)[0]=b_badval;
355             } else {
356             nn -= 1;,{)
357             qsort_F (tmp_datap, 0, nn);
358             #line 359 "lib/PDL/Ufunc-pp-medover.c"
359              
360 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
361 0 0         if (nn%2==0) {
362 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
363             }
364             else {
365 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
366 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
367 0           } break;
368 6           case PDL_D: {
369 6 50         PDL_DECLARE_PARAMS_medover_1(PDL_Double,D)
    50          
    50          
    100          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
370 28 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
371             #line 866 "lib/PDL/Ufunc.pd"
372              
373             if (__privtrans->pdls[0]->nvals == 0)
374             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
375             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
376             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
377             #line 871 "lib/PDL/Ufunc.pd"
378             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++; },
379             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
380             }} /* Close n */
381             #line 874 "lib/PDL/Ufunc.pd"
382             PDL_IF_BAD(if ( nn == 0 ) {
383             (b_datap)[0]=b_badval;
384             } else {
385             nn -= 1;,{)
386             qsort_D (tmp_datap, 0, nn);
387             #line 388 "lib/PDL/Ufunc-pp-medover.c"
388              
389 8           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
390 8 100         if (nn%2==0) {
391 3           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
392             }
393             else {
394 5           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
395 6 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
396 6           } break;
397 0           case PDL_LD: {
398 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
399 0 0         PDL_BROADCASTLOOP_START_medover_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 medover:" "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,E,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_E (tmp_datap, 0, nn);
416             #line 417 "lib/PDL/Ufunc-pp-medover.c"
417              
418 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
419 0 0         if (nn%2==0) {
420 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
421             }
422             else {
423 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
424 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
425 0           } break;
426 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in medover: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
427             }
428             #undef PDL_BAD_CODE
429             #undef PDL_IF_BAD
430             } else { /* ** else do 'good' Code ** */
431             #define PDL_IF_BAD(t,f) f
432 26           switch (__privtrans->__datatype) { /* Start generic switch */
433 1           case PDL_SB: {
434 1 50         PDL_DECLARE_PARAMS_medover_1(PDL_SByte,A)
    50          
    0          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    0          
    50          
435 2 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    50          
    50          
436             #line 866 "lib/PDL/Ufunc.pd"
437              
438             if (__privtrans->pdls[0]->nvals == 0)
439             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
440             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
441             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
442             #line 871 "lib/PDL/Ufunc.pd"
443             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++; },
444             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
445             }} /* Close n */
446             #line 874 "lib/PDL/Ufunc.pd"
447             PDL_IF_BAD(if ( nn == 0 ) {
448             (b_datap)[0]=b_badval;
449             } else {
450             nn -= 1;,{)
451             qsort_A (tmp_datap, 0, nn);
452             #line 453 "lib/PDL/Ufunc-pp-medover.c"
453              
454 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
455 0 0         if (nn%2==0) {
456 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
457             }
458             else {
459 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
460 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
461 0           } break;
462 5           case PDL_B: {
463 5 50         PDL_DECLARE_PARAMS_medover_1(PDL_Byte,B)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
464 20 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
465             #line 866 "lib/PDL/Ufunc.pd"
466              
467             if (__privtrans->pdls[0]->nvals == 0)
468             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
469             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
470             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
471             #line 871 "lib/PDL/Ufunc.pd"
472             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++; },
473             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
474             }} /* Close n */
475             #line 874 "lib/PDL/Ufunc.pd"
476             PDL_IF_BAD(if ( nn == 0 ) {
477             (b_datap)[0]=b_badval;
478             } else {
479             nn -= 1;,{)
480             qsort_B (tmp_datap, 0, nn);
481             #line 482 "lib/PDL/Ufunc-pp-medover.c"
482              
483 5           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
484 5 100         if (nn%2==0) {
485 1           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
486             }
487             else {
488 4           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
489 5 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
490 5           } break;
491 5           case PDL_S: {
492 5 50         PDL_DECLARE_PARAMS_medover_1(PDL_Short,S)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
493 20 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
494             #line 866 "lib/PDL/Ufunc.pd"
495              
496             if (__privtrans->pdls[0]->nvals == 0)
497             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
498             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
499             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
500             #line 871 "lib/PDL/Ufunc.pd"
501             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++; },
502             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
503             }} /* Close n */
504             #line 874 "lib/PDL/Ufunc.pd"
505             PDL_IF_BAD(if ( nn == 0 ) {
506             (b_datap)[0]=b_badval;
507             } else {
508             nn -= 1;,{)
509             qsort_S (tmp_datap, 0, nn);
510             #line 511 "lib/PDL/Ufunc-pp-medover.c"
511              
512 5           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
513 5 100         if (nn%2==0) {
514 1           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
515             }
516             else {
517 4           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
518 5 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
519 5           } break;
520 0           case PDL_US: {
521 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
522 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
523             #line 866 "lib/PDL/Ufunc.pd"
524              
525             if (__privtrans->pdls[0]->nvals == 0)
526             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
527             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
528             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
529             #line 871 "lib/PDL/Ufunc.pd"
530             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++; },
531             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
532             }} /* Close n */
533             #line 874 "lib/PDL/Ufunc.pd"
534             PDL_IF_BAD(if ( nn == 0 ) {
535             (b_datap)[0]=b_badval;
536             } else {
537             nn -= 1;,{)
538             qsort_U (tmp_datap, 0, nn);
539             #line 540 "lib/PDL/Ufunc-pp-medover.c"
540              
541 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
542 0 0         if (nn%2==0) {
543 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
544             }
545             else {
546 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
547 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
548 0           } break;
549 4           case PDL_L: {
550 4 50         PDL_DECLARE_PARAMS_medover_1(PDL_Long,L)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
551 16 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
552             #line 866 "lib/PDL/Ufunc.pd"
553              
554             if (__privtrans->pdls[0]->nvals == 0)
555             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
556             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
557             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
558             #line 871 "lib/PDL/Ufunc.pd"
559             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++; },
560             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
561             }} /* Close n */
562             #line 874 "lib/PDL/Ufunc.pd"
563             PDL_IF_BAD(if ( nn == 0 ) {
564             (b_datap)[0]=b_badval;
565             } else {
566             nn -= 1;,{)
567             qsort_L (tmp_datap, 0, nn);
568             #line 569 "lib/PDL/Ufunc-pp-medover.c"
569              
570 4           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
571 4 50         if (nn%2==0) {
572 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
573             }
574             else {
575 4           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
576 4 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
577 4           } break;
578 0           case PDL_UL: {
579 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
580 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
581             #line 866 "lib/PDL/Ufunc.pd"
582              
583             if (__privtrans->pdls[0]->nvals == 0)
584             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
585             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
586             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
587             #line 871 "lib/PDL/Ufunc.pd"
588             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++; },
589             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
590             }} /* Close n */
591             #line 874 "lib/PDL/Ufunc.pd"
592             PDL_IF_BAD(if ( nn == 0 ) {
593             (b_datap)[0]=b_badval;
594             } else {
595             nn -= 1;,{)
596             qsort_K (tmp_datap, 0, nn);
597             #line 598 "lib/PDL/Ufunc-pp-medover.c"
598              
599 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
600 0 0         if (nn%2==0) {
601 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
602             }
603             else {
604 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
605 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
606 0           } break;
607 0           case PDL_IND: {
608 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
609 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
610             #line 866 "lib/PDL/Ufunc.pd"
611              
612             if (__privtrans->pdls[0]->nvals == 0)
613             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
614             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
615             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
616             #line 871 "lib/PDL/Ufunc.pd"
617             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++; },
618             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
619             }} /* Close n */
620             #line 874 "lib/PDL/Ufunc.pd"
621             PDL_IF_BAD(if ( nn == 0 ) {
622             (b_datap)[0]=b_badval;
623             } else {
624             nn -= 1;,{)
625             qsort_N (tmp_datap, 0, nn);
626             #line 627 "lib/PDL/Ufunc-pp-medover.c"
627              
628 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
629 0 0         if (nn%2==0) {
630 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
631             }
632             else {
633 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
634 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
635 0           } break;
636 0           case PDL_ULL: {
637 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
638 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
639             #line 866 "lib/PDL/Ufunc.pd"
640              
641             if (__privtrans->pdls[0]->nvals == 0)
642             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
643             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
644             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
645             #line 871 "lib/PDL/Ufunc.pd"
646             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++; },
647             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
648             }} /* Close n */
649             #line 874 "lib/PDL/Ufunc.pd"
650             PDL_IF_BAD(if ( nn == 0 ) {
651             (b_datap)[0]=b_badval;
652             } else {
653             nn -= 1;,{)
654             qsort_P (tmp_datap, 0, nn);
655             #line 656 "lib/PDL/Ufunc-pp-medover.c"
656              
657 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
658 0 0         if (nn%2==0) {
659 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
660             }
661             else {
662 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
663 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
664 0           } break;
665 0           case PDL_LL: {
666 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
667 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
668             #line 866 "lib/PDL/Ufunc.pd"
669              
670             if (__privtrans->pdls[0]->nvals == 0)
671             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
672             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
673             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
674             #line 871 "lib/PDL/Ufunc.pd"
675             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++; },
676             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
677             }} /* Close n */
678             #line 874 "lib/PDL/Ufunc.pd"
679             PDL_IF_BAD(if ( nn == 0 ) {
680             (b_datap)[0]=b_badval;
681             } else {
682             nn -= 1;,{)
683             qsort_Q (tmp_datap, 0, nn);
684             #line 685 "lib/PDL/Ufunc-pp-medover.c"
685              
686 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
687 0 0         if (nn%2==0) {
688 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
689             }
690             else {
691 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
692 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
693 0           } break;
694 4           case PDL_F: {
695 4 50         PDL_DECLARE_PARAMS_medover_1(PDL_Float,F)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
696 16 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
697             #line 866 "lib/PDL/Ufunc.pd"
698              
699             if (__privtrans->pdls[0]->nvals == 0)
700             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
701             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
702             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
703             #line 871 "lib/PDL/Ufunc.pd"
704             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++; },
705             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
706             }} /* Close n */
707             #line 874 "lib/PDL/Ufunc.pd"
708             PDL_IF_BAD(if ( nn == 0 ) {
709             (b_datap)[0]=b_badval;
710             } else {
711             nn -= 1;,{)
712             qsort_F (tmp_datap, 0, nn);
713             #line 714 "lib/PDL/Ufunc-pp-medover.c"
714              
715 4           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
716 4 50         if (nn%2==0) {
717 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
718             }
719             else {
720 4           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
721 4 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
722 4           } break;
723 7           case PDL_D: {
724 7 50         PDL_DECLARE_PARAMS_medover_1(PDL_Double,D)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
    50          
725 56 50         PDL_BROADCASTLOOP_START_medover_readdata {
    50          
    50          
    50          
    50          
    100          
    100          
726             #line 866 "lib/PDL/Ufunc.pd"
727              
728             if (__privtrans->pdls[0]->nvals == 0)
729             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
730             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
731             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
732             #line 871 "lib/PDL/Ufunc.pd"
733             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++; },
734             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
735             }} /* Close n */
736             #line 874 "lib/PDL/Ufunc.pd"
737             PDL_IF_BAD(if ( nn == 0 ) {
738             (b_datap)[0]=b_badval;
739             } else {
740             nn -= 1;,{)
741             qsort_D (tmp_datap, 0, nn);
742             #line 743 "lib/PDL/Ufunc-pp-medover.c"
743              
744 31           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
745 31 100         if (nn%2==0) {
746 2           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
747             }
748             else {
749 29           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
750 7 50         }}}PDL_BROADCASTLOOP_END_medover_readdata
    50          
751 7           } break;
752 0           case PDL_LD: {
753 0 0         PDL_DECLARE_PARAMS_medover_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
754 0 0         PDL_BROADCASTLOOP_START_medover_readdata {
    0          
    0          
    0          
    0          
    0          
    0          
755             #line 866 "lib/PDL/Ufunc.pd"
756              
757             if (__privtrans->pdls[0]->nvals == 0)
758             return PDL->make_error(PDL_EUSERERROR, "Error in medover:" "cannot process empty ndarray");
759             PDL_Indx nn = PDL_IF_BAD(0,__privtrans->ind_sizes[0]-1);
760             {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
761             #line 871 "lib/PDL/Ufunc.pd"
762             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++; },
763             (tmp_datap)[0+(__inc_tmp_n*(n))] = (a_datap)[0+(__inc_a_n*(n))];)
764             }} /* Close n */
765             #line 874 "lib/PDL/Ufunc.pd"
766             PDL_IF_BAD(if ( nn == 0 ) {
767             (b_datap)[0]=b_badval;
768             } else {
769             nn -= 1;,{)
770             qsort_E (tmp_datap, 0, nn);
771             #line 772 "lib/PDL/Ufunc-pp-medover.c"
772              
773 0           PDL_Indx nn1 = nn/2, nn2 = nn1+1;
774 0 0         if (nn%2==0) {
775 0           (b_datap)[0] = (tmp_datap)[0+(__inc_tmp_n*(nn1))];
776             }
777             else {
778 0           (b_datap)[0] = 0.5*( (tmp_datap)[0+(__inc_tmp_n*(nn1))] + (tmp_datap)[0+(__inc_tmp_n*(nn2))] );
779 0 0         }}}PDL_BROADCASTLOOP_END_medover_readdata
    0          
780 0           } break;
781 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in medover: unhandled datatype(%d), only handles (ABSULKNPQFDE)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
782             }
783             #undef PDL_IF_BAD
784             }
785 32           return PDL_err;
786             }
787              
788             static pdl_datatypes pdl_medover_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 };
789             static PDL_Indx pdl_medover_vtable_realdims[] = { 1, 0, 1 };
790             static char *pdl_medover_vtable_parnames[] = { "a","b","tmp" };
791             static short pdl_medover_vtable_parflags[] = {
792             0,
793             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE,
794             PDL_PARAM_ISCREAT|PDL_PARAM_ISPHYS|PDL_PARAM_ISTEMP|PDL_PARAM_ISWRITE
795             };
796             static pdl_datatypes pdl_medover_vtable_partypes[] = { -1, -1, -1 };
797             static PDL_Indx pdl_medover_vtable_realdims_starts[] = { 0, 1, 1 };
798             static PDL_Indx pdl_medover_vtable_realdims_ind_ids[] = { 0, 0 };
799             static char *pdl_medover_vtable_indnames[] = { "n" };
800             pdl_transvtable pdl_medover_vtable = {
801             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_medover_vtable_gentypes, 1, 3, NULL /*CORE21*/,
802             pdl_medover_vtable_realdims, pdl_medover_vtable_parnames,
803             pdl_medover_vtable_parflags, pdl_medover_vtable_partypes,
804             pdl_medover_vtable_realdims_starts, pdl_medover_vtable_realdims_ind_ids, 2,
805             1, pdl_medover_vtable_indnames,
806             NULL, pdl_medover_readdata, NULL,
807             NULL,
808             0,"PDL::Ufunc::medover"
809             };
810              
811              
812 33           pdl_error pdl_run_medover(pdl *a,pdl *b) {
813 33           pdl_error PDL_err = {0, NULL, 0};
814 33 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
815 33           pdl_trans *__privtrans = PDL->create_trans(&pdl_medover_vtable);
816 33 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
817 33           __privtrans->pdls[0] = a;
818 33           __privtrans->pdls[1] = b;
819 33 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
820 33 100         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
821 32           return PDL_err;
822             }