File Coverage

lib/PDL/Ufunc-pp-minimum_ind.c
Criterion Covered Total %
statement 0 276 0.0
branch 0 1080 0.0
condition n/a
subroutine n/a
pod n/a
total 0 1356 0.0


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