File Coverage

lib/PDL/Bad-pp-ngoodover.c
Criterion Covered Total %
statement 50 189 26.4
branch 119 1158 10.2
condition n/a
subroutine n/a
pod n/a
total 169 1347 12.5


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/Bad.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_Bad
21             extern Core* PDL; /* Structure hold core C functions */
22             #line 23 "lib/PDL/Bad-pp-ngoodover.c"
23              
24             #include
25              
26             #line 1857 "lib/PDL/PP.pm"
27             pdl_error pdl_ngoodover_readdata(pdl_trans *__privtrans) {
28             pdl_error PDL_err = {0, NULL, 0};
29             #line 30 "lib/PDL/Bad-pp-ngoodover.c"
30 24           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
31 24 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in ngoodover:" "broadcast.incs NULL");
32             /* broadcastloop declarations */
33             int __brcloopval;
34             register PDL_Indx __tind0,__tind1; /* counters along dim */
35 24           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
36             /* dims here are how many steps along those dims */
37 24           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
38 24           register PDL_Indx __tinc0_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
39 24           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
40 24           register PDL_Indx __tinc1_b = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
41             #define PDL_BROADCASTLOOP_START_ngoodover_readdata PDL_BROADCASTLOOP_START( \
42             readdata, \
43             __privtrans->broadcast, \
44             __privtrans->vtable, \
45             a_datap += __offsp[0]; \
46             b_datap += __offsp[1]; \
47             , \
48             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
49             ,b_datap += __tinc1_b - __tinc0_b * __tdims0 \
50             ), \
51             ( ,a_datap += __tinc0_a \
52             ,b_datap += __tinc0_b \
53             ) \
54             )
55             #define PDL_BROADCASTLOOP_END_ngoodover_readdata PDL_BROADCASTLOOP_END( \
56             __privtrans->broadcast, \
57             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
58             b_datap -= __tinc1_b * __tdims1 + __offsp[1]; \
59             )
60 24           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
61             #ifndef PDL_DECLARE_PARAMS_ngoodover_1
62             #define PDL_DECLARE_PARAMS_ngoodover_1(PDL_TYPE_OP,PDL_PPSYM_OP,PDL_TYPE_PARAM_b,PDL_PPSYM_PARAM_b) \
63             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
64             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_PARAM_b, b, (__privtrans->pdls[1]), 1, PDL_PPSYM_PARAM_b)
65             #endif
66 24 100         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
67             #define PDL_BAD_CODE
68             #define PDL_IF_BAD(t,f) t
69 6           switch (__privtrans->__datatype) { /* Start generic switch */
70 0           case PDL_SB: {
71 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_SByte,A,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
72 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
73 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
74 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
75 0           } break;
76 2           case PDL_B: {
77 2 50         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Byte,B,PDL_Indx,N)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
78 10 50         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    50          
    50          
    50          
    50          
    100          
    100          
79 19 50         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    100          
    100          
80 6 50         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    50          
81 2           } break;
82 2           case PDL_S: {
83 2 50         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Short,S,PDL_Indx,N)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
84 8 50         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    50          
    50          
    50          
    50          
    100          
    100          
85 22 50         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    100          
    100          
86 4 50         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    50          
87 2           } break;
88 0           case PDL_US: {
89 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Ushort,U,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
90 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
91 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
92 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
93 0           } break;
94 0           case PDL_L: {
95 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Long,L,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
96 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
97 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
98 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
99 0           } break;
100 0           case PDL_UL: {
101 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_ULong,K,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
102 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
103 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
104 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
105 0           } break;
106 0           case PDL_IND: {
107 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Indx,N,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
108 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
109 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
110 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
111 0           } break;
112 0           case PDL_ULL: {
113 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_ULongLong,P,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
114 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
115 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
116 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
117 0           } break;
118 0           case PDL_LL: {
119 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_LongLong,Q,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
120 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
121 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
122 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
123 0           } break;
124 0           case PDL_F: {
125 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Float,F,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
126 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
127 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
128 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
129 0           } break;
130 2           case PDL_D: {
131 2 50         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Double,D,PDL_Indx,N)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
132 8 50         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    50          
    50          
    50          
    50          
    100          
    100          
133 22 50         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    100          
    100          
134 4 50         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    50          
135 2           } break;
136 0           case PDL_LD: {
137 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_LDouble,E,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
138 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
139 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
140 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
141 0           } break;
142 0           case PDL_CF: {
143 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CFloat,G,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
144 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
145 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
    0          
    0          
146 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
147 0           } break;
148 0           case PDL_CD: {
149 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CDouble,C,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
150 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
151 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
    0          
    0          
152 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
153 0           } break;
154 0           case PDL_CLD: {
155 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CLDouble,H,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
156 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
157 0 0         PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
    0          
    0          
    0          
    0          
158 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
159 0           } break;
160 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in ngoodover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
161             }
162             #undef PDL_BAD_CODE
163             #undef PDL_IF_BAD
164             } else { /* ** else do 'good' Code ** */
165             #define PDL_IF_BAD(t,f) f
166 18           switch (__privtrans->__datatype) { /* Start generic switch */
167 0           case PDL_SB: {
168 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_SByte,A,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
169 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
170             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,A,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
171 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
172 0           } break;
173 0           case PDL_B: {
174 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Byte,B,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
175 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
176             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,B,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
177 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
178 0           } break;
179 0           case PDL_S: {
180 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Short,S,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
181 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
182             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,S,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
183 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
184 0           } break;
185 0           case PDL_US: {
186 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Ushort,U,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
187 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
188             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,U,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
189 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
190 0           } break;
191 0           case PDL_L: {
192 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Long,L,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
193 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
194             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,L,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
195 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
196 0           } break;
197 0           case PDL_UL: {
198 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_ULong,K,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
199 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
200             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,K,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
201 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
202 0           } break;
203 0           case PDL_IND: {
204 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Indx,N,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
205 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
206             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,N,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
207 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
208 0           } break;
209 0           case PDL_ULL: {
210 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_ULongLong,P,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
211 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
212             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,P,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
213 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
214 0           } break;
215 0           case PDL_LL: {
216 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_LongLong,Q,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
217 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
218             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,Q,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
219 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
220 0           } break;
221 6           case PDL_F: {
222 6 100         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Float,F,PDL_Indx,N)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
223 158 50         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    50          
    50          
    50          
    50          
    100          
    100          
224             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
225 146 50         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    50          
226 6           } break;
227 12           case PDL_D: {
228 12 100         PDL_DECLARE_PARAMS_ngoodover_1(PDL_Double,D,PDL_Indx,N)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
229 9355 50         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    50          
    50          
    50          
    50          
    100          
    100          
230             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
231 9331 50         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    50          
232 12           } break;
233 0           case PDL_LD: {
234 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_LDouble,E,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
235 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
236             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
237 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
238 0           } break;
239 0           case PDL_CF: {
240 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CFloat,G,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
241 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
242             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
243 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
244 0           } break;
245 0           case PDL_CD: {
246 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CDouble,C,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
247 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
248             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
249 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
250 0           } break;
251 0           case PDL_CLD: {
252 0 0         PDL_DECLARE_PARAMS_ngoodover_1(PDL_CLDouble,H,PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
253 0 0         PDL_BROADCASTLOOP_START_ngoodover_readdata {PDL_Indx cnt = PDL_IF_BAD(0,__privtrans->ind_sizes[0]);
    0          
    0          
    0          
    0          
    0          
    0          
254             PDL_IF_BAD({/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { if ( !PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan) ) { cnt++; } }} /* Close n */,)
255 0 0         (b_datap)[0] = cnt;}PDL_BROADCASTLOOP_END_ngoodover_readdata
    0          
256 0           } break;
257 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in ngoodover: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
258             }
259             #undef PDL_IF_BAD
260             }
261 24           return PDL_err;
262             }
263              
264             static pdl_datatypes pdl_ngoodover_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 };
265             static PDL_Indx pdl_ngoodover_vtable_realdims[] = { 1, 0 };
266             static char *pdl_ngoodover_vtable_parnames[] = { "a","b" };
267             static short pdl_ngoodover_vtable_parflags[] = {
268             0,
269             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISTYPED|PDL_PARAM_ISWRITE
270             };
271             static pdl_datatypes pdl_ngoodover_vtable_partypes[] = { -1, PDL_IND };
272             static PDL_Indx pdl_ngoodover_vtable_realdims_starts[] = { 0, 1 };
273             static PDL_Indx pdl_ngoodover_vtable_realdims_ind_ids[] = { 0 };
274             static char *pdl_ngoodover_vtable_indnames[] = { "n" };
275             pdl_transvtable pdl_ngoodover_vtable = {
276             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_ngoodover_vtable_gentypes, 1, 2, NULL /*CORE21*/,
277             pdl_ngoodover_vtable_realdims, pdl_ngoodover_vtable_parnames,
278             pdl_ngoodover_vtable_parflags, pdl_ngoodover_vtable_partypes,
279             pdl_ngoodover_vtable_realdims_starts, pdl_ngoodover_vtable_realdims_ind_ids, 1,
280             1, pdl_ngoodover_vtable_indnames,
281             NULL, pdl_ngoodover_readdata, NULL,
282             NULL,
283             0,"PDL::Bad::ngoodover"
284             };
285              
286              
287 24           pdl_error pdl_run_ngoodover(pdl *a,pdl *b) {
288 24           pdl_error PDL_err = {0, NULL, 0};
289 24 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
290 24           pdl_trans *__privtrans = PDL->create_trans(&pdl_ngoodover_vtable);
291 24 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
292 24           __privtrans->pdls[0] = a;
293 24           __privtrans->pdls[1] = b;
294 24 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
295 24 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
296 24           return PDL_err;
297             }