File Coverage

lib/PDL/Primitive-pp-eqvec.c
Criterion Covered Total %
statement 45 256 17.5
branch 67 1248 5.3
condition n/a
subroutine n/a
pod n/a
total 112 1504 7.4


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