File Coverage

lib/PDL/Primitive-pp-whichover.c
Criterion Covered Total %
statement 30 265 11.3
branch 32 1344 2.3
condition n/a
subroutine n/a
pod n/a
total 62 1609 3.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/Primitive.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_Primitive
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/Primitive-pp-whichover.c"
23             extern int pdl_srand_threads;
24             extern uint64_t *pdl_rand_state;
25             void pdl_srand(uint64_t **s, uint64_t seed, int n);
26             double pdl_drand(uint64_t *s);
27             #define PDL_MAYBE_SRAND \
28             if (pdl_srand_threads < 0) \
29             pdl_srand(&pdl_rand_state, PDL->pdl_seed(), PDL->online_cpus());
30             #define PDL_RAND_SET_OFFSET(v, thr, pdl) \
31             if (v < 0) { \
32             if (thr.mag_nthr >= 0) { \
33             int thr_no = PDL->magic_get_thread(pdl); \
34             if (thr_no < 0) return PDL->make_error_simple(PDL_EFATAL, "Invalid pdl_magic_get_thread!"); \
35             v = thr_no == 0 ? thr_no : thr_no % PDL->online_cpus(); \
36             } else { \
37             v = 0; \
38             } \
39             }
40              
41             #line 1857 "lib/PDL/PP.pm"
42             pdl_error pdl_whichover_readdata(pdl_trans *__privtrans) {
43             pdl_error PDL_err = {0, NULL, 0};
44             #line 45 "lib/PDL/Primitive-pp-whichover.c"
45 2           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
46 2 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in whichover:" "broadcast.incs NULL");
47             /* broadcastloop declarations */
48             int __brcloopval;
49             register PDL_Indx __tind0,__tind1; /* counters along dim */
50 2           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
51             /* dims here are how many steps along those dims */
52 2           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
53 2           register PDL_Indx __tinc0_o = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
54 2           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
55 2           register PDL_Indx __tinc1_o = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
56             #define PDL_BROADCASTLOOP_START_whichover_readdata PDL_BROADCASTLOOP_START( \
57             readdata, \
58             __privtrans->broadcast, \
59             __privtrans->vtable, \
60             a_datap += __offsp[0]; \
61             o_datap += __offsp[1]; \
62             , \
63             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
64             ,o_datap += __tinc1_o - __tinc0_o * __tdims0 \
65             ), \
66             ( ,a_datap += __tinc0_a \
67             ,o_datap += __tinc0_o \
68             ) \
69             )
70             #define PDL_BROADCASTLOOP_END_whichover_readdata PDL_BROADCASTLOOP_END( \
71             __privtrans->broadcast, \
72             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
73             o_datap -= __tinc1_o * __tdims1 + __offsp[1]; \
74             )
75 2           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
76 2           register PDL_Indx __inc_o_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_o_n;
77             #ifndef PDL_DECLARE_PARAMS_whichover_1
78             #define PDL_DECLARE_PARAMS_whichover_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
79             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
80             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, o, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
81             #endif
82 2 50         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
83             #define PDL_BAD_CODE
84             #define PDL_IF_BAD(t,f) t
85 0           switch (__privtrans->__datatype) { /* Start generic switch */
86 0           case PDL_SB: {
87 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
88 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
89 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
90 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
91             }} /* Close n */
92 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
93 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
94 0           } break;
95 0           case PDL_B: {
96 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
97 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
98 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
99 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
100             }} /* Close n */
101 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
102 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
103 0           } break;
104 0           case PDL_S: {
105 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
106 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
107 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
108 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
109             }} /* Close n */
110 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
111 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
112 0           } break;
113 0           case PDL_US: {
114 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
115 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
116 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
117 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
118             }} /* Close n */
119 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
120 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
121 0           } break;
122 0           case PDL_L: {
123 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
124 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
125 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
126 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
127             }} /* Close n */
128 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
129 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
130 0           } break;
131 0           case PDL_UL: {
132 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
133 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
134 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
135 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
136             }} /* Close n */
137 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
138 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
139 0           } break;
140 0           case PDL_IND: {
141 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
142 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
143 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
144 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
145             }} /* Close n */
146 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
147 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
148 0           } break;
149 0           case PDL_ULL: {
150 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
151 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
152 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
153 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
154             }} /* Close n */
155 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
156 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
157 0           } break;
158 0           case PDL_LL: {
159 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
160 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
161 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
162 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
163             }} /* Close n */
164 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
165 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
166 0           } break;
167 0           case PDL_F: {
168 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
169 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
170 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
171 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
172             }} /* Close n */
173 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
174 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
175 0           } break;
176 0           case PDL_D: {
177 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Double,D)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
178 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
179 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
180 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
181             }} /* Close n */
182 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
183 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
184 0           } break;
185 0           case PDL_LD: {
186 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
187 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
188 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
189 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
190             }} /* Close n */
191 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
192 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
193 0           } break;
194 0           case PDL_CF: {
195 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
196 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
197 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
198 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
    0          
    0          
    0          
199             }} /* Close n */
200 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
201 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
202 0           } break;
203 0           case PDL_CD: {
204 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
205 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
206 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
207 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
    0          
    0          
    0          
208             }} /* Close n */
209 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
210 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
211 0           } break;
212 0           case PDL_CLD: {
213 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
214 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
215 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
216 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
    0          
    0          
    0          
    0          
217             }} /* Close n */
218 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
219 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
220 0           } break;
221 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in whichover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
222             }
223             #undef PDL_BAD_CODE
224             #undef PDL_IF_BAD
225             } else { /* ** else do 'good' Code ** */
226             #define PDL_IF_BAD(t,f) f
227 2           switch (__privtrans->__datatype) { /* Start generic switch */
228 0           case PDL_SB: {
229 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
230 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
231 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
232 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
233             }} /* Close n */
234 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
235 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
236 0           } break;
237 0           case PDL_B: {
238 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
239 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
240 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
241 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
242             }} /* Close n */
243 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
244 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
245 0           } break;
246 0           case PDL_S: {
247 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
248 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
249 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
250 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
251             }} /* Close n */
252 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
253 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
254 0           } break;
255 0           case PDL_US: {
256 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
257 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
258 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
259 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
260             }} /* Close n */
261 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
262 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
263 0           } break;
264 0           case PDL_L: {
265 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
266 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
267 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
268 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
269             }} /* Close n */
270 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
271 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
272 0           } break;
273 0           case PDL_UL: {
274 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
275 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
276 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
277 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
278             }} /* Close n */
279 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
280 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
281 0           } break;
282 0           case PDL_IND: {
283 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
284 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
285 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
286 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
287             }} /* Close n */
288 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
289 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
290 0           } break;
291 0           case PDL_ULL: {
292 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
293 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
294 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
295 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
296             }} /* Close n */
297 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
298 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
299 0           } break;
300 0           case PDL_LL: {
301 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
302 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
303 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
304 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
305             }} /* Close n */
306 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
307 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
308 0           } break;
309 0           case PDL_F: {
310 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
311 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
312 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
313 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
314             }} /* Close n */
315 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
316 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
317 0           } break;
318 2           case PDL_D: {
319 2 50         PDL_DECLARE_PARAMS_whichover_1(PDL_Double,D)
    50          
    50          
    50          
    100          
    50          
    50          
    50          
320 20 50         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    50          
    50          
    50          
    50          
    100          
    100          
321 154 100         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
322 140 100         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
323             }} /* Close n */
324 134 100         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
325 2 50         }PDL_BROADCASTLOOP_END_whichover_readdata
    50          
326 2           } break;
327 0           case PDL_LD: {
328 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
329 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
330 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
331 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
332             }} /* Close n */
333 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
334 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
335 0           } break;
336 0           case PDL_CF: {
337 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
338 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
339 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
340 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
341             }} /* Close n */
342 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
343 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
344 0           } break;
345 0           case PDL_CD: {
346 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
347 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
348 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
349 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
350             }} /* Close n */
351 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
352 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
353 0           } break;
354 0           case PDL_CLD: {
355 0 0         PDL_DECLARE_PARAMS_whichover_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
356 0 0         PDL_BROADCASTLOOP_START_whichover_readdata {PDL_Indx last = 0;
    0          
    0          
    0          
    0          
    0          
    0          
357 0 0         {/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
358 0 0         if ((a_datap)[0+(__inc_a_n*(n))] PDL_IF_BAD(&& !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan),)) (o_datap)[0+(__inc_o_n*(last++))] = n;
    0          
359             }} /* Close n */
360 0 0         {/* Open n=last */ PDL_EXPAND2(register PDL_Indx n=PDLMAX((last),0), __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { (o_datap)[0+(__inc_o_n*(n))] = -1; }} /* Close n=last */
361 0 0         }PDL_BROADCASTLOOP_END_whichover_readdata
    0          
362 0           } break;
363 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in whichover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
364             }
365             #undef PDL_IF_BAD
366             }
367 2           return PDL_err;
368             }
369              
370             static pdl_datatypes pdl_whichover_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, PDL_CF, PDL_CD, PDL_CLD, -1 };
371             static PDL_Indx pdl_whichover_vtable_realdims[] = { 1, 1 };
372             static char *pdl_whichover_vtable_parnames[] = { "a","o" };
373             static short pdl_whichover_vtable_parflags[] = {
374             0,
375             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
376             };
377             static pdl_datatypes pdl_whichover_vtable_partypes[] = { -1, -1 };
378             static PDL_Indx pdl_whichover_vtable_realdims_starts[] = { 0, 1 };
379             static PDL_Indx pdl_whichover_vtable_realdims_ind_ids[] = { 0, 0 };
380             static char *pdl_whichover_vtable_indnames[] = { "n" };
381             pdl_transvtable pdl_whichover_vtable = {
382             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_whichover_vtable_gentypes, 1, 2, NULL /*CORE21*/,
383             pdl_whichover_vtable_realdims, pdl_whichover_vtable_parnames,
384             pdl_whichover_vtable_parflags, pdl_whichover_vtable_partypes,
385             pdl_whichover_vtable_realdims_starts, pdl_whichover_vtable_realdims_ind_ids, 2,
386             1, pdl_whichover_vtable_indnames,
387             NULL, pdl_whichover_readdata, NULL,
388             NULL,
389             0,"PDL::Primitive::whichover"
390             };
391              
392              
393 2           pdl_error pdl_run_whichover(pdl *a,pdl *o) {
394 2           pdl_error PDL_err = {0, NULL, 0};
395 2 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
396 2           pdl_trans *__privtrans = PDL->create_trans(&pdl_whichover_vtable);
397 2 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
398 2           __privtrans->pdls[0] = a;
399 2           __privtrans->pdls[1] = o;
400 2 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
401 2 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
402 2           return PDL_err;
403             }