Branch Coverage

lib/PDL/Primitive-pp-unionvec.c
Criterion Covered Total %
branch 111 876 12.6


line true false branch
28 0 12 PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans));
39 0 12 if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in unionvec:" "broadcast.incs NULL");
93 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_SByte,A,PDL_Indx,N)
94 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
97 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
98 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
100 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
103 0 0 else if (nai < sizeNA) { cmpval = -1; }
104 0 0 else if (nbi < sizeNB) { cmpval = 1; }
106 0 0 if (cmpval < 0) {
107 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
110 0 0 else if (cmpval > 0) {
111 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
115 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
121 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
122 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
125 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Byte,B,PDL_Indx,N)
126 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
129 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
130 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
132 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
135 0 0 else if (nai < sizeNA) { cmpval = -1; }
136 0 0 else if (nbi < sizeNB) { cmpval = 1; }
138 0 0 if (cmpval < 0) {
139 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
142 0 0 else if (cmpval > 0) {
143 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
147 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
153 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
154 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
157 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Short,S,PDL_Indx,N)
158 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
161 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
162 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
164 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
167 0 0 else if (nai < sizeNA) { cmpval = -1; }
168 0 0 else if (nbi < sizeNB) { cmpval = 1; }
170 0 0 if (cmpval < 0) {
171 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
174 0 0 else if (cmpval > 0) {
175 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
179 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
185 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
186 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
189 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Ushort,U,PDL_Indx,N)
190 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
193 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
194 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
196 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
199 0 0 else if (nai < sizeNA) { cmpval = -1; }
200 0 0 else if (nbi < sizeNB) { cmpval = 1; }
202 0 0 if (cmpval < 0) {
203 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
206 0 0 else if (cmpval > 0) {
207 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
211 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
217 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
218 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
221 2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
2 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
0 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Long,L,PDL_Indx,N)
222 0 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
2 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
2 2 PDL_BROADCASTLOOP_START_unionvec_readdata {
225 10 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
226 6 4 if (nai < sizeNA && nbi < sizeNB) {
6 0 if (nai < sizeNA && nbi < sizeNB) {
228 2 10 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
2 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
12 4 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
231 0 4 else if (nai < sizeNA) { cmpval = -1; }
232 2 2 else if (nbi < sizeNB) { cmpval = 1; }
234 2 6 if (cmpval < 0) {
235 4 2 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
238 2 4 else if (cmpval > 0) {
239 4 2 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
243 8 4 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
249 8 4 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
4 2 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
250 0 2 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 2 }PDL_BROADCASTLOOP_END_unionvec_readdata
253 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULong,K,PDL_Indx,N)
254 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
257 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
258 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
260 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
263 0 0 else if (nai < sizeNA) { cmpval = -1; }
264 0 0 else if (nbi < sizeNB) { cmpval = 1; }
266 0 0 if (cmpval < 0) {
267 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
270 0 0 else if (cmpval > 0) {
271 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
275 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
281 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
282 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
285 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Indx,N,PDL_Indx,N)
286 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
289 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
290 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
292 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
295 0 0 else if (nai < sizeNA) { cmpval = -1; }
296 0 0 else if (nbi < sizeNB) { cmpval = 1; }
298 0 0 if (cmpval < 0) {
299 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
302 0 0 else if (cmpval > 0) {
303 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
307 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
313 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
314 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
317 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_ULongLong,P,PDL_Indx,N)
318 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
321 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
322 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
324 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
327 0 0 else if (nai < sizeNA) { cmpval = -1; }
328 0 0 else if (nbi < sizeNB) { cmpval = 1; }
330 0 0 if (cmpval < 0) {
331 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
334 0 0 else if (cmpval > 0) {
335 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
339 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
345 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
346 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
349 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LongLong,Q,PDL_Indx,N)
350 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
353 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
354 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
356 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
359 0 0 else if (nai < sizeNA) { cmpval = -1; }
360 0 0 else if (nbi < sizeNB) { cmpval = 1; }
362 0 0 if (cmpval < 0) {
363 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
366 0 0 else if (cmpval > 0) {
367 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
371 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
377 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
378 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
381 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Float,F,PDL_Indx,N)
382 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
385 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
386 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
388 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
391 0 0 else if (nai < sizeNA) { cmpval = -1; }
392 0 0 else if (nbi < sizeNB) { cmpval = 1; }
394 0 0 if (cmpval < 0) {
395 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
398 0 0 else if (cmpval > 0) {
399 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
403 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
409 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
410 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
413 5 5 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
6 4 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 6 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 10 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
6 4 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 6 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 10 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
8 2 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 8 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 10 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
10 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
0 10 PDL_DECLARE_PARAMS_unionvec_1(PDL_Double,D,PDL_Indx,N)
414 0 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
15 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
10 10 PDL_BROADCASTLOOP_START_unionvec_readdata {
417 36 12 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
418 18 18 if (nai < sizeNA && nbi < sizeNB) {
12 6 if (nai < sizeNA && nbi < sizeNB) {
420 9 9 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
9 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
18 3 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
423 6 18 else if (nai < sizeNA) { cmpval = -1; }
424 15 3 else if (nbi < sizeNB) { cmpval = 1; }
426 15 18 if (cmpval < 0) {
427 45 15 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
430 15 3 else if (cmpval > 0) {
431 45 15 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
435 9 3 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
441 9 3 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
3 15 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
442 0 10 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 10 }PDL_BROADCASTLOOP_END_unionvec_readdata
445 0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
0 0 PDL_DECLARE_PARAMS_unionvec_1(PDL_LDouble,E,PDL_Indx,N)
446 0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
0 0 PDL_BROADCASTLOOP_START_unionvec_readdata {
449 0 0 {/* Open NC */ PDL_EXPAND2(register PDL_Indx NC=0, __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {
450 0 0 if (nai < sizeNA && nbi < sizeNB) {
0 0 if (nai < sizeNA && nbi < sizeNB) {
452 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] != (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]) { cmpval = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))] < (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))] ? -1 : 1; break; } }} /* Close M */
455 0 0 else if (nai < sizeNA) { cmpval = -1; }
456 0 0 else if (nbi < sizeNB) { cmpval = 1; }
458 0 0 if (cmpval < 0) {
459 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
462 0 0 else if (cmpval > 0) {
463 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (b_datap)[0+(__inc_b_M*(M))+(__inc_b_NB*(nbi))]; }} /* Close M */
467 0 0 {/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */
473 0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
0 0 {/* Open NC=nci */ PDL_EXPAND2(register PDL_Indx NC=PDLMAX((nci),0), __NC_stop=(__NC_size)); for(; NC<__NC_stop; NC+=1) {{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { (c_datap)[0+(__inc_c_M*(M))+(__inc_c_NC*(NC))] = 0; }} /* Close NC=nci */}} /* Close M */
474 0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
0 0 }PDL_BROADCASTLOOP_END_unionvec_readdata
509 0 12 if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
511 0 12 if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
516 0 12 PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
517 0 12 PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));