| line |
true |
false |
branch |
|
51
|
0 |
1 |
PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans)); |
|
65
|
0 |
1 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "broadcast.incs NULL"); |
|
120
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_SByte,A,PDL_Indx,N,PDL_Indx,N) |
|
128
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
132
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
136
|
0 |
0 |
if (i2<0) |
|
138
|
0 |
0 |
else if (i2 >= m_size) |
|
142
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
146
|
0 |
0 |
if (i2<0) |
|
148
|
0 |
0 |
if (i2 >= m_size) |
|
152
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
156
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
160
|
0 |
0 |
if (j2<0) |
|
162
|
0 |
0 |
else if (j2 >= n_size) |
|
166
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
170
|
0 |
0 |
if (j2<0) |
|
172
|
0 |
0 |
if (j2 >= n_size) |
|
176
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
182
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
183
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
185
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
186
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
187
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
188
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
194
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
198
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Byte,B,PDL_Indx,N,PDL_Indx,N) |
|
206
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
210
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
214
|
0 |
0 |
if (i2<0) |
|
216
|
0 |
0 |
else if (i2 >= m_size) |
|
220
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
224
|
0 |
0 |
if (i2<0) |
|
226
|
0 |
0 |
if (i2 >= m_size) |
|
230
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
234
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
238
|
0 |
0 |
if (j2<0) |
|
240
|
0 |
0 |
else if (j2 >= n_size) |
|
244
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
248
|
0 |
0 |
if (j2<0) |
|
250
|
0 |
0 |
if (j2 >= n_size) |
|
254
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
260
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
261
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
263
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
264
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
265
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
266
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
272
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
276
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Short,S,PDL_Indx,N,PDL_Indx,N) |
|
284
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
288
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
292
|
0 |
0 |
if (i2<0) |
|
294
|
0 |
0 |
else if (i2 >= m_size) |
|
298
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
302
|
0 |
0 |
if (i2<0) |
|
304
|
0 |
0 |
if (i2 >= m_size) |
|
308
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
312
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
316
|
0 |
0 |
if (j2<0) |
|
318
|
0 |
0 |
else if (j2 >= n_size) |
|
322
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
326
|
0 |
0 |
if (j2<0) |
|
328
|
0 |
0 |
if (j2 >= n_size) |
|
332
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
338
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
339
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
341
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
342
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
343
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
344
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
350
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
354
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Ushort,U,PDL_Indx,N,PDL_Indx,N) |
|
362
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
366
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
370
|
0 |
0 |
if (i2<0) |
|
372
|
0 |
0 |
else if (i2 >= m_size) |
|
376
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
380
|
0 |
0 |
if (i2<0) |
|
382
|
0 |
0 |
if (i2 >= m_size) |
|
386
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
390
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
394
|
0 |
0 |
if (j2<0) |
|
396
|
0 |
0 |
else if (j2 >= n_size) |
|
400
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
404
|
0 |
0 |
if (j2<0) |
|
406
|
0 |
0 |
if (j2 >= n_size) |
|
410
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
416
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
417
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
419
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
420
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
421
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
422
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
428
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
432
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Long,L,PDL_Indx,N,PDL_Indx,N) |
|
440
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
444
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
448
|
0 |
0 |
if (i2<0) |
|
450
|
0 |
0 |
else if (i2 >= m_size) |
|
454
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
458
|
0 |
0 |
if (i2<0) |
|
460
|
0 |
0 |
if (i2 >= m_size) |
|
464
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
468
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
472
|
0 |
0 |
if (j2<0) |
|
474
|
0 |
0 |
else if (j2 >= n_size) |
|
478
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
482
|
0 |
0 |
if (j2<0) |
|
484
|
0 |
0 |
if (j2 >= n_size) |
|
488
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
494
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
495
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
497
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
498
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
499
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
500
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
506
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
510
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULong,K,PDL_Indx,N,PDL_Indx,N) |
|
518
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
522
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
526
|
0 |
0 |
if (i2<0) |
|
528
|
0 |
0 |
else if (i2 >= m_size) |
|
532
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
536
|
0 |
0 |
if (i2<0) |
|
538
|
0 |
0 |
if (i2 >= m_size) |
|
542
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
546
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
550
|
0 |
0 |
if (j2<0) |
|
552
|
0 |
0 |
else if (j2 >= n_size) |
|
556
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
560
|
0 |
0 |
if (j2<0) |
|
562
|
0 |
0 |
if (j2 >= n_size) |
|
566
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
572
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
573
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
575
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
576
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
577
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
578
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
584
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
588
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Indx,N,PDL_Indx,N,PDL_Indx,N) |
|
596
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
600
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
604
|
0 |
0 |
if (i2<0) |
|
606
|
0 |
0 |
else if (i2 >= m_size) |
|
610
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
614
|
0 |
0 |
if (i2<0) |
|
616
|
0 |
0 |
if (i2 >= m_size) |
|
620
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
624
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
628
|
0 |
0 |
if (j2<0) |
|
630
|
0 |
0 |
else if (j2 >= n_size) |
|
634
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
638
|
0 |
0 |
if (j2<0) |
|
640
|
0 |
0 |
if (j2 >= n_size) |
|
644
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
650
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
651
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
653
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
654
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
655
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
656
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
662
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
666
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_ULongLong,P,PDL_Indx,N,PDL_Indx,N) |
|
674
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
678
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
682
|
0 |
0 |
if (i2<0) |
|
684
|
0 |
0 |
else if (i2 >= m_size) |
|
688
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
692
|
0 |
0 |
if (i2<0) |
|
694
|
0 |
0 |
if (i2 >= m_size) |
|
698
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
702
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
706
|
0 |
0 |
if (j2<0) |
|
708
|
0 |
0 |
else if (j2 >= n_size) |
|
712
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
716
|
0 |
0 |
if (j2<0) |
|
718
|
0 |
0 |
if (j2 >= n_size) |
|
722
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
728
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
729
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
731
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
732
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
733
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
734
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
740
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
744
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LongLong,Q,PDL_Indx,N,PDL_Indx,N) |
|
752
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
756
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
760
|
0 |
0 |
if (i2<0) |
|
762
|
0 |
0 |
else if (i2 >= m_size) |
|
766
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
770
|
0 |
0 |
if (i2<0) |
|
772
|
0 |
0 |
if (i2 >= m_size) |
|
776
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
780
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
784
|
0 |
0 |
if (j2<0) |
|
786
|
0 |
0 |
else if (j2 >= n_size) |
|
790
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
794
|
0 |
0 |
if (j2<0) |
|
796
|
0 |
0 |
if (j2 >= n_size) |
|
800
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
806
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
807
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
809
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
810
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
811
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
812
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
818
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
822
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Float,F,PDL_Indx,N,PDL_Indx,N) |
|
830
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
834
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
838
|
0 |
0 |
if (i2<0) |
|
840
|
0 |
0 |
else if (i2 >= m_size) |
|
844
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
848
|
0 |
0 |
if (i2<0) |
|
850
|
0 |
0 |
if (i2 >= m_size) |
|
854
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
858
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
862
|
0 |
0 |
if (j2<0) |
|
864
|
0 |
0 |
else if (j2 >= n_size) |
|
868
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
872
|
0 |
0 |
if (j2<0) |
|
874
|
0 |
0 |
if (j2 >= n_size) |
|
878
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
884
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
885
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
887
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
888
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
889
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
890
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
896
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
900
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2df_1(PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
908
|
1 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
1 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
912
|
12 |
1 |
for ( i = 1-p_size; i< m_size; i++) { |
|
916
|
0 |
0 |
if (i2<0) |
|
918
|
0 |
0 |
else if (i2 >= m_size) |
|
922
|
11 |
1 |
if (i2<0 || i2 >= m_size) |
|
|
1 |
10 |
if (i2<0 || i2 >= m_size) |
|
926
|
0 |
0 |
if (i2<0) |
|
928
|
0 |
0 |
if (i2 >= m_size) |
|
932
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
936
|
12 |
1 |
for ( j = 1-q_size; j< n_size; j++) { |
|
940
|
0 |
0 |
if (j2<0) |
|
942
|
0 |
0 |
else if (j2 >= n_size) |
|
946
|
11 |
1 |
if (j2<0 || j2 >= n_size) |
|
|
1 |
10 |
if (j2<0 || j2 >= n_size) |
|
950
|
0 |
0 |
if (j2<0) |
|
952
|
0 |
0 |
if (j2 >= n_size) |
|
956
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
962
|
0 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
963
|
100 |
10 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
10 |
1 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
965
|
300 |
100 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
966
|
20 |
280 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
967
|
840 |
280 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
968
|
56 |
784 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
974
|
0 |
1 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
1 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
978
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2df_1(PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
986
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2df:" "Out of Memory"); |
|
990
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
994
|
0 |
0 |
if (i2<0) |
|
996
|
0 |
0 |
else if (i2 >= m_size) |
|
1000
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1004
|
0 |
0 |
if (i2<0) |
|
1006
|
0 |
0 |
if (i2 >= m_size) |
|
1010
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1014
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1018
|
0 |
0 |
if (j2<0) |
|
1020
|
0 |
0 |
else if (j2 >= n_size) |
|
1024
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1028
|
0 |
0 |
if (j2<0) |
|
1030
|
0 |
0 |
if (j2 >= n_size) |
|
1034
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1040
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_med2df_readdata |
|
1041
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {{/* Open m */ PDL_EXPAND2(register PDL_Indx m=0, __m_stop=(__m_size)); for(; m<__m_stop; m+=1) { |
|
1043
|
0 |
0 |
{/* Open q */ PDL_EXPAND2(register PDL_Indx q=0, __q_stop=(__q_size)); for(; q<__q_stop; q+=1) { |
|
1044
|
0 |
0 |
if ((j2 = mapj[n-q]) < 0) continue; |
|
1045
|
0 |
0 |
{/* Open p */ PDL_EXPAND2(register PDL_Indx p=0, __p_stop=(__p_size)); for(; p<__p_stop; p+=1) { |
|
1046
|
0 |
0 |
if ((i2 = mapi[m-p]) < 0) continue; |
|
1052
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
|
0 |
0 |
PDL_BROADCASTLOOP_END_med2df_readdata |
|
1088
|
0 |
1 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
1090
|
0 |
1 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
1094
|
0 |
1 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
1098
|
0 |
1 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |