| line |
true |
false |
branch |
|
28
|
0 |
7 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in vsearchvec:" "broadcast.incs NULL"); |
|
74
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_SByte,A,PDL_Indx,N) |
|
77
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
81
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
84
|
0 |
0 |
while (nhi-nlo > 1) { |
|
87
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
89
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
94
|
0 |
0 |
if (nlo==-1) { |
|
96
|
0 |
0 |
} else if (nlo==n1) { |
|
98
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
100
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
106
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
107
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
111
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Byte,B,PDL_Indx,N) |
|
114
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
118
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
121
|
0 |
0 |
while (nhi-nlo > 1) { |
|
124
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
126
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
131
|
0 |
0 |
if (nlo==-1) { |
|
133
|
0 |
0 |
} else if (nlo==n1) { |
|
135
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
137
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
143
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
144
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
148
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Short,S,PDL_Indx,N) |
|
151
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
155
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
158
|
0 |
0 |
while (nhi-nlo > 1) { |
|
161
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
163
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
168
|
0 |
0 |
if (nlo==-1) { |
|
170
|
0 |
0 |
} else if (nlo==n1) { |
|
172
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
174
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
180
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
181
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
185
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Ushort,U,PDL_Indx,N) |
|
188
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
192
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
195
|
0 |
0 |
while (nhi-nlo > 1) { |
|
198
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
200
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
205
|
0 |
0 |
if (nlo==-1) { |
|
207
|
0 |
0 |
} else if (nlo==n1) { |
|
209
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
211
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
217
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
218
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
222
|
1 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Long,L,PDL_Indx,N) |
|
225
|
0 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
4 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
229
|
4 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
|
0 |
4 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
|
4 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
232
|
12 |
4 |
while (nhi-nlo > 1) { |
|
235
|
5 |
17 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
1 |
4 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
22 |
7 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
237
|
4 |
8 |
if ((cmpval > 0) == is_asc_sorted) |
|
242
|
1 |
3 |
if (nlo==-1) { |
|
244
|
0 |
3 |
} else if (nlo==n1) { |
|
246
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
248
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
254
|
0 |
1 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
255
|
0 |
1 |
if (carp) warn("some values had to be extrapolated"); |
|
259
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULong,K,PDL_Indx,N) |
|
262
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
266
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
269
|
0 |
0 |
while (nhi-nlo > 1) { |
|
272
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
274
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
279
|
0 |
0 |
if (nlo==-1) { |
|
281
|
0 |
0 |
} else if (nlo==n1) { |
|
283
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
285
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
291
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
292
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
296
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Indx,N,PDL_Indx,N) |
|
299
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
303
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
306
|
0 |
0 |
while (nhi-nlo > 1) { |
|
309
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
311
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
316
|
0 |
0 |
if (nlo==-1) { |
|
318
|
0 |
0 |
} else if (nlo==n1) { |
|
320
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
322
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
328
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
329
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
333
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_ULongLong,P,PDL_Indx,N) |
|
336
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
340
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
343
|
0 |
0 |
while (nhi-nlo > 1) { |
|
346
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
348
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
353
|
0 |
0 |
if (nlo==-1) { |
|
355
|
0 |
0 |
} else if (nlo==n1) { |
|
357
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
359
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
365
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
366
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
370
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LongLong,Q,PDL_Indx,N) |
|
373
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
377
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
380
|
0 |
0 |
while (nhi-nlo > 1) { |
|
383
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
385
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
390
|
0 |
0 |
if (nlo==-1) { |
|
392
|
0 |
0 |
} else if (nlo==n1) { |
|
394
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
396
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
402
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
403
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
407
|
1 |
3 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Float,F,PDL_Indx,N) |
|
410
|
0 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
90 |
30 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
30 |
4 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
414
|
90 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
|
0 |
90 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
|
90 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
417
|
266 |
90 |
while (nhi-nlo > 1) { |
|
420
|
190 |
412 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
54 |
136 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
602 |
76 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
422
|
136 |
130 |
if ((cmpval > 0) == is_asc_sorted) |
|
427
|
14 |
76 |
if (nlo==-1) { |
|
429
|
0 |
76 |
} else if (nlo==n1) { |
|
431
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
433
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
439
|
0 |
4 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
4 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
440
|
0 |
4 |
if (carp) warn("some values had to be extrapolated"); |
|
444
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
2 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
|
0 |
2 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_Double,D,PDL_Indx,N) |
|
447
|
0 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
2 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
2 |
2 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
451
|
2 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
|
0 |
2 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
454
|
6 |
2 |
while (nhi-nlo > 1) { |
|
457
|
6 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
3 |
3 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
|
6 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
459
|
3 |
3 |
if ((cmpval > 0) == is_asc_sorted) |
|
464
|
1 |
1 |
if (nlo==-1) { |
|
466
|
0 |
1 |
} else if (nlo==n1) { |
|
468
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
470
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
476
|
0 |
2 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
2 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
477
|
0 |
2 |
if (carp) warn("some values had to be extrapolated"); |
|
481
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_vsearchvec_1(PDL_LDouble,E,PDL_Indx,N) |
|
484
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_vsearchvec_readdata |
|
488
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -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 ((which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))]) { cmpval = (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(0))] ? -1 : 1; break; } }} /* Close M */ |
|
491
|
0 |
0 |
while (nhi-nlo > 1) { |
|
494
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(nn))] ? -1 : 1; break; } }} /* Close M */ |
|
496
|
0 |
0 |
if ((cmpval > 0) == is_asc_sorted) |
|
501
|
0 |
0 |
if (nlo==-1) { |
|
503
|
0 |
0 |
} else if (nlo==n1) { |
|
505
|
0 |
0 |
{/* Open M */ PDL_EXPAND2(register PDL_Indx M=0, __M_stop=(__M_size)); for(; M<__M_stop; M+=1) { if ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -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 ((find_datap)[0+(__inc_find_M*(M))] != (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))]) { cmpval = (find_datap)[0+(__inc_find_M*(M))] < (which_datap)[0+(__inc_which_M*(M))+(__inc_which_N*(n1))] ? -1 : 1; break; } }} /* Close M */ |
|
507
|
0 |
0 |
if (cmpval != 0) carp = 1; |
|
513
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_vsearchvec_readdata |
|
514
|
0 |
0 |
if (carp) warn("some values had to be extrapolated"); |
|
549
|
0 |
7 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
551
|
0 |
7 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
555
|
0 |
7 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
556
|
0 |
7 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |