| line |
true |
false |
branch |
|
28
|
0 |
14 |
PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans)); |
|
39
|
0 |
14 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in setdiffvec:" "broadcast.incs NULL"); |
|
93
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_SByte,A,PDL_Indx,N) |
|
94
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
97
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
99
|
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 */ |
|
101
|
0 |
0 |
if (cmpval < 0) { |
|
102
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
106
|
0 |
0 |
else if (cmpval > 0) { |
|
114
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
118
|
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 */ |
|
119
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
122
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Byte,B,PDL_Indx,N) |
|
123
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
126
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
128
|
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 */ |
|
130
|
0 |
0 |
if (cmpval < 0) { |
|
131
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
135
|
0 |
0 |
else if (cmpval > 0) { |
|
143
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
144
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
147
|
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 */ |
|
148
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
151
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Short,S,PDL_Indx,N) |
|
152
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
155
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
157
|
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 */ |
|
159
|
0 |
0 |
if (cmpval < 0) { |
|
160
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
164
|
0 |
0 |
else if (cmpval > 0) { |
|
172
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
173
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
176
|
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 */ |
|
177
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
180
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
181
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
184
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
186
|
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 */ |
|
188
|
0 |
0 |
if (cmpval < 0) { |
|
189
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
193
|
0 |
0 |
else if (cmpval > 0) { |
|
201
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
202
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
205
|
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 */ |
|
206
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
209
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Long,L,PDL_Indx,N) |
|
210
|
0 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
2 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
2 |
2 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
213
|
8 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
6 |
2 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
6 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
215
|
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 */ |
|
217
|
2 |
4 |
if (cmpval < 0) { |
|
218
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
222
|
0 |
4 |
else if (cmpval > 0) { |
|
230
|
2 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
2 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
231
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
234
|
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 */ |
|
235
|
0 |
2 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
2 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
238
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULong,K,PDL_Indx,N) |
|
239
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
242
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
244
|
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 */ |
|
246
|
0 |
0 |
if (cmpval < 0) { |
|
247
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
251
|
0 |
0 |
else if (cmpval > 0) { |
|
259
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
260
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
263
|
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 */ |
|
264
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
267
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Indx,N,PDL_Indx,N) |
|
268
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
271
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
273
|
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 */ |
|
275
|
0 |
0 |
if (cmpval < 0) { |
|
276
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
280
|
0 |
0 |
else if (cmpval > 0) { |
|
288
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
289
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
292
|
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 */ |
|
293
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
296
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
297
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
300
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
302
|
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 */ |
|
304
|
0 |
0 |
if (cmpval < 0) { |
|
305
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
309
|
0 |
0 |
else if (cmpval > 0) { |
|
317
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
318
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
321
|
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 */ |
|
322
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
325
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
326
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
329
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
331
|
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 */ |
|
333
|
0 |
0 |
if (cmpval < 0) { |
|
334
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
338
|
0 |
0 |
else if (cmpval > 0) { |
|
346
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
347
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
350
|
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 */ |
|
351
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
354
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Float,F,PDL_Indx,N) |
|
355
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
358
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
360
|
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 */ |
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
367
|
0 |
0 |
else if (cmpval > 0) { |
|
375
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
376
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
379
|
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 */ |
|
380
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
383
|
6 |
6 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
10 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
12 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
10 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
12 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
10 |
2 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
12 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
12 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
12 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_Double,D,PDL_Indx,N) |
|
384
|
0 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
18 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
12 |
12 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
387
|
39 |
3 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
36 |
3 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
24 |
12 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
389
|
6 |
54 |
{/* 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 |
6 |
{/* 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 */ |
|
|
60 |
18 |
{/* 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 |
24 |
if (cmpval < 0) { |
|
392
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
396
|
6 |
18 |
else if (cmpval > 0) { |
|
404
|
51 |
9 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
42 |
9 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
405
|
126 |
42 |
{/* 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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
408
|
54 |
18 |
{/* 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 */ |
|
|
18 |
18 |
{/* 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 */ |
|
409
|
0 |
12 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
12 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
412
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_setdiffvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
413
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_setdiffvec_readdata { |
|
416
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA && nbi < sizeNB ; ) { |
|
418
|
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 */ |
|
420
|
0 |
0 |
if (cmpval < 0) { |
|
421
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
425
|
0 |
0 |
else if (cmpval > 0) { |
|
433
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
|
0 |
0 |
for ( ; nci < sizeNC && nai < sizeNA ; nai++,nci++ ) { |
|
434
|
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*(nci))] = (a_datap)[0+(__inc_a_M*(M))+(__inc_a_NA*(nai))]; }} /* Close M */ |
|
437
|
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 */ |
|
438
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_setdiffvec_readdata |
|
473
|
0 |
14 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
475
|
0 |
14 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
480
|
0 |
14 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
481
|
0 |
14 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |