| line |
true |
false |
branch |
|
32
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
0 |
0 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
137 |
464 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
144 |
464 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
432 |
32 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
201 |
263 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
107 |
156 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
|
106 |
157 |
PDL_TYPELIST_FLOATREAL(PDL_QSORT) |
|
50
|
0 |
2 |
PDL_RETERROR(PDL_err, PDL->redodims_default(__privtrans)); |
|
64
|
0 |
2 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "broadcast.incs NULL"); |
|
132
|
1 |
1 |
if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */ |
|
137
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
145
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
149
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
153
|
0 |
0 |
if (i2<0) |
|
155
|
0 |
0 |
else if (i2 >= m_size) |
|
159
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
163
|
0 |
0 |
if (i2<0) |
|
165
|
0 |
0 |
if (i2 >= m_size) |
|
169
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
173
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
177
|
0 |
0 |
if (j2<0) |
|
179
|
0 |
0 |
else if (j2 >= n_size) |
|
183
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
187
|
0 |
0 |
if (j2<0) |
|
189
|
0 |
0 |
if (j2 >= n_size) |
|
193
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
237
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
245
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
249
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
253
|
0 |
0 |
if (i2<0) |
|
255
|
0 |
0 |
else if (i2 >= m_size) |
|
259
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
263
|
0 |
0 |
if (i2<0) |
|
265
|
0 |
0 |
if (i2 >= m_size) |
|
269
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
273
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
277
|
0 |
0 |
if (j2<0) |
|
279
|
0 |
0 |
else if (j2 >= n_size) |
|
283
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
287
|
0 |
0 |
if (j2<0) |
|
289
|
0 |
0 |
if (j2 >= n_size) |
|
293
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
337
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
345
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
349
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
353
|
0 |
0 |
if (i2<0) |
|
355
|
0 |
0 |
else if (i2 >= m_size) |
|
359
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
363
|
0 |
0 |
if (i2<0) |
|
365
|
0 |
0 |
if (i2 >= m_size) |
|
369
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
373
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
377
|
0 |
0 |
if (j2<0) |
|
379
|
0 |
0 |
else if (j2 >= n_size) |
|
383
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
387
|
0 |
0 |
if (j2<0) |
|
389
|
0 |
0 |
if (j2 >= n_size) |
|
393
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
437
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
445
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
449
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
453
|
0 |
0 |
if (i2<0) |
|
455
|
0 |
0 |
else if (i2 >= m_size) |
|
459
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
463
|
0 |
0 |
if (i2<0) |
|
465
|
0 |
0 |
if (i2 >= m_size) |
|
469
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
473
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
477
|
0 |
0 |
if (j2<0) |
|
479
|
0 |
0 |
else if (j2 >= n_size) |
|
483
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
487
|
0 |
0 |
if (j2<0) |
|
489
|
0 |
0 |
if (j2 >= n_size) |
|
493
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
537
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
545
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
549
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
553
|
0 |
0 |
if (i2<0) |
|
555
|
0 |
0 |
else if (i2 >= m_size) |
|
559
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
563
|
0 |
0 |
if (i2<0) |
|
565
|
0 |
0 |
if (i2 >= m_size) |
|
569
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
573
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
577
|
0 |
0 |
if (j2<0) |
|
579
|
0 |
0 |
else if (j2 >= n_size) |
|
583
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
587
|
0 |
0 |
if (j2<0) |
|
589
|
0 |
0 |
if (j2 >= n_size) |
|
593
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
637
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
645
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
649
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
653
|
0 |
0 |
if (i2<0) |
|
655
|
0 |
0 |
else if (i2 >= m_size) |
|
659
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
663
|
0 |
0 |
if (i2<0) |
|
665
|
0 |
0 |
if (i2 >= m_size) |
|
669
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
673
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
677
|
0 |
0 |
if (j2<0) |
|
679
|
0 |
0 |
else if (j2 >= n_size) |
|
683
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
687
|
0 |
0 |
if (j2<0) |
|
689
|
0 |
0 |
if (j2 >= n_size) |
|
693
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
737
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
745
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
749
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
753
|
0 |
0 |
if (i2<0) |
|
755
|
0 |
0 |
else if (i2 >= m_size) |
|
759
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
763
|
0 |
0 |
if (i2<0) |
|
765
|
0 |
0 |
if (i2 >= m_size) |
|
769
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
773
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
777
|
0 |
0 |
if (j2<0) |
|
779
|
0 |
0 |
else if (j2 >= n_size) |
|
783
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
787
|
0 |
0 |
if (j2<0) |
|
789
|
0 |
0 |
if (j2 >= n_size) |
|
793
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
837
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
845
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
849
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
853
|
0 |
0 |
if (i2<0) |
|
855
|
0 |
0 |
else if (i2 >= m_size) |
|
859
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
863
|
0 |
0 |
if (i2<0) |
|
865
|
0 |
0 |
if (i2 >= m_size) |
|
869
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
873
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
877
|
0 |
0 |
if (j2<0) |
|
879
|
0 |
0 |
else if (j2 >= n_size) |
|
883
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
887
|
0 |
0 |
if (j2<0) |
|
889
|
0 |
0 |
if (j2 >= n_size) |
|
893
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
937
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
945
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
949
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
953
|
0 |
0 |
if (i2<0) |
|
955
|
0 |
0 |
else if (i2 >= m_size) |
|
959
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
963
|
0 |
0 |
if (i2<0) |
|
965
|
0 |
0 |
if (i2 >= m_size) |
|
969
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
973
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
977
|
0 |
0 |
if (j2<0) |
|
979
|
0 |
0 |
else if (j2 >= n_size) |
|
983
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
987
|
0 |
0 |
if (j2<0) |
|
989
|
0 |
0 |
if (j2 >= n_size) |
|
993
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1037
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1045
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1049
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1053
|
0 |
0 |
if (i2<0) |
|
1055
|
0 |
0 |
else if (i2 >= m_size) |
|
1059
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1063
|
0 |
0 |
if (i2<0) |
|
1065
|
0 |
0 |
if (i2 >= m_size) |
|
1069
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1073
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1077
|
0 |
0 |
if (j2<0) |
|
1079
|
0 |
0 |
else if (j2 >= n_size) |
|
1083
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1087
|
0 |
0 |
if (j2<0) |
|
1089
|
0 |
0 |
if (j2 >= n_size) |
|
1093
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1137
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1145
|
1 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
1 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1149
|
7 |
1 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1153
|
0 |
0 |
if (i2<0) |
|
1155
|
0 |
0 |
else if (i2 >= m_size) |
|
1159
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1163
|
0 |
0 |
if (i2<0) |
|
1165
|
0 |
0 |
if (i2 >= m_size) |
|
1169
|
1 |
7 |
REALMOD(i2,m_size); |
|
|
1 |
7 |
REALMOD(i2,m_size); |
|
1173
|
7 |
1 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1177
|
0 |
0 |
if (j2<0) |
|
1179
|
0 |
0 |
else if (j2 >= n_size) |
|
1183
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1187
|
0 |
0 |
if (j2<0) |
|
1189
|
0 |
0 |
if (j2 >= n_size) |
|
1193
|
1 |
7 |
REALMOD(j2,n_size); |
|
|
1 |
7 |
REALMOD(j2,n_size); |
|
1237
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
1245
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1249
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1253
|
0 |
0 |
if (i2<0) |
|
1255
|
0 |
0 |
else if (i2 >= m_size) |
|
1259
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1263
|
0 |
0 |
if (i2<0) |
|
1265
|
0 |
0 |
if (i2 >= m_size) |
|
1269
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1273
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1277
|
0 |
0 |
if (j2<0) |
|
1279
|
0 |
0 |
else if (j2 >= n_size) |
|
1283
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1287
|
0 |
0 |
if (j2<0) |
|
1289
|
0 |
0 |
if (j2 >= n_size) |
|
1293
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1344
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_SByte,A,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1352
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1356
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1360
|
0 |
0 |
if (i2<0) |
|
1362
|
0 |
0 |
else if (i2 >= m_size) |
|
1366
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1370
|
0 |
0 |
if (i2<0) |
|
1372
|
0 |
0 |
if (i2 >= m_size) |
|
1376
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1380
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1384
|
0 |
0 |
if (j2<0) |
|
1386
|
0 |
0 |
else if (j2 >= n_size) |
|
1390
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1394
|
0 |
0 |
if (j2<0) |
|
1396
|
0 |
0 |
if (j2 >= n_size) |
|
1400
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1444
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Byte,B,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1452
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1456
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1460
|
0 |
0 |
if (i2<0) |
|
1462
|
0 |
0 |
else if (i2 >= m_size) |
|
1466
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1470
|
0 |
0 |
if (i2<0) |
|
1472
|
0 |
0 |
if (i2 >= m_size) |
|
1476
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1480
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1484
|
0 |
0 |
if (j2<0) |
|
1486
|
0 |
0 |
else if (j2 >= n_size) |
|
1490
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1494
|
0 |
0 |
if (j2<0) |
|
1496
|
0 |
0 |
if (j2 >= n_size) |
|
1500
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1544
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Short,S,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1552
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1556
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1560
|
0 |
0 |
if (i2<0) |
|
1562
|
0 |
0 |
else if (i2 >= m_size) |
|
1566
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1570
|
0 |
0 |
if (i2<0) |
|
1572
|
0 |
0 |
if (i2 >= m_size) |
|
1576
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1580
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1584
|
0 |
0 |
if (j2<0) |
|
1586
|
0 |
0 |
else if (j2 >= n_size) |
|
1590
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1594
|
0 |
0 |
if (j2<0) |
|
1596
|
0 |
0 |
if (j2 >= n_size) |
|
1600
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1644
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Ushort,U,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1652
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1656
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1660
|
0 |
0 |
if (i2<0) |
|
1662
|
0 |
0 |
else if (i2 >= m_size) |
|
1666
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1670
|
0 |
0 |
if (i2<0) |
|
1672
|
0 |
0 |
if (i2 >= m_size) |
|
1676
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1680
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1684
|
0 |
0 |
if (j2<0) |
|
1686
|
0 |
0 |
else if (j2 >= n_size) |
|
1690
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1694
|
0 |
0 |
if (j2<0) |
|
1696
|
0 |
0 |
if (j2 >= n_size) |
|
1700
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1744
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Long,L,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1752
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1756
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1760
|
0 |
0 |
if (i2<0) |
|
1762
|
0 |
0 |
else if (i2 >= m_size) |
|
1766
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1770
|
0 |
0 |
if (i2<0) |
|
1772
|
0 |
0 |
if (i2 >= m_size) |
|
1776
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1780
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1784
|
0 |
0 |
if (j2<0) |
|
1786
|
0 |
0 |
else if (j2 >= n_size) |
|
1790
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1794
|
0 |
0 |
if (j2<0) |
|
1796
|
0 |
0 |
if (j2 >= n_size) |
|
1800
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1844
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULong,K,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1852
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1856
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1860
|
0 |
0 |
if (i2<0) |
|
1862
|
0 |
0 |
else if (i2 >= m_size) |
|
1866
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1870
|
0 |
0 |
if (i2<0) |
|
1872
|
0 |
0 |
if (i2 >= m_size) |
|
1876
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1880
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1884
|
0 |
0 |
if (j2<0) |
|
1886
|
0 |
0 |
else if (j2 >= n_size) |
|
1890
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1894
|
0 |
0 |
if (j2<0) |
|
1896
|
0 |
0 |
if (j2 >= n_size) |
|
1900
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
1944
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Indx,N,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
1952
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
1956
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
1960
|
0 |
0 |
if (i2<0) |
|
1962
|
0 |
0 |
else if (i2 >= m_size) |
|
1966
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
1970
|
0 |
0 |
if (i2<0) |
|
1972
|
0 |
0 |
if (i2 >= m_size) |
|
1976
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
1980
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
1984
|
0 |
0 |
if (j2<0) |
|
1986
|
0 |
0 |
else if (j2 >= n_size) |
|
1990
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
1994
|
0 |
0 |
if (j2<0) |
|
1996
|
0 |
0 |
if (j2 >= n_size) |
|
2000
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
2044
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_ULongLong,P,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
2052
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
2056
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
2060
|
0 |
0 |
if (i2<0) |
|
2062
|
0 |
0 |
else if (i2 >= m_size) |
|
2066
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
2070
|
0 |
0 |
if (i2<0) |
|
2072
|
0 |
0 |
if (i2 >= m_size) |
|
2076
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
2080
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
2084
|
0 |
0 |
if (j2<0) |
|
2086
|
0 |
0 |
else if (j2 >= n_size) |
|
2090
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
2094
|
0 |
0 |
if (j2<0) |
|
2096
|
0 |
0 |
if (j2 >= n_size) |
|
2100
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
2144
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LongLong,Q,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
2152
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
2156
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
2160
|
0 |
0 |
if (i2<0) |
|
2162
|
0 |
0 |
else if (i2 >= m_size) |
|
2166
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
2170
|
0 |
0 |
if (i2<0) |
|
2172
|
0 |
0 |
if (i2 >= m_size) |
|
2176
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
2180
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
2184
|
0 |
0 |
if (j2<0) |
|
2186
|
0 |
0 |
else if (j2 >= n_size) |
|
2190
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
2194
|
0 |
0 |
if (j2<0) |
|
2196
|
0 |
0 |
if (j2 >= n_size) |
|
2200
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
2244
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Float,F,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
2252
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
2256
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
2260
|
0 |
0 |
if (i2<0) |
|
2262
|
0 |
0 |
else if (i2 >= m_size) |
|
2266
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
2270
|
0 |
0 |
if (i2<0) |
|
2272
|
0 |
0 |
if (i2 >= m_size) |
|
2276
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
2280
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
2284
|
0 |
0 |
if (j2<0) |
|
2286
|
0 |
0 |
else if (j2 >= n_size) |
|
2290
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
2294
|
0 |
0 |
if (j2<0) |
|
2296
|
0 |
0 |
if (j2 >= n_size) |
|
2300
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
2344
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_med2d_1(PDL_Double,D,PDL_Double,D,PDL_Indx,N,PDL_Indx,N) |
|
2352
|
1 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
1 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
2356
|
7 |
1 |
for ( i = 1-p_size; i< m_size; i++) { |
|
2360
|
0 |
0 |
if (i2<0) |
|
2362
|
0 |
0 |
else if (i2 >= m_size) |
|
2366
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
2370
|
0 |
0 |
if (i2<0) |
|
2372
|
0 |
0 |
if (i2 >= m_size) |
|
2376
|
1 |
7 |
REALMOD(i2,m_size); |
|
|
1 |
7 |
REALMOD(i2,m_size); |
|
2380
|
7 |
1 |
for ( j = 1-q_size; j< n_size; j++) { |
|
2384
|
0 |
0 |
if (j2<0) |
|
2386
|
0 |
0 |
else if (j2 >= n_size) |
|
2390
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
2394
|
0 |
0 |
if (j2<0) |
|
2396
|
0 |
0 |
if (j2 >= n_size) |
|
2400
|
1 |
7 |
REALMOD(j2,n_size); |
|
|
1 |
7 |
REALMOD(j2,n_size); |
|
2444
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_med2d_1(PDL_LDouble,E,PDL_LDouble,E,PDL_Indx,N,PDL_Indx,N) |
|
2452
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
|
0 |
0 |
if ((mapi==NULL) || (mapj==NULL)) return PDL->make_error(PDL_EUSERERROR, "Error in med2d:" "Out of Memory"); |
|
2456
|
0 |
0 |
for ( i = 1-p_size; i< m_size; i++) { |
|
2460
|
0 |
0 |
if (i2<0) |
|
2462
|
0 |
0 |
else if (i2 >= m_size) |
|
2466
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
|
0 |
0 |
if (i2<0 || i2 >= m_size) |
|
2470
|
0 |
0 |
if (i2<0) |
|
2472
|
0 |
0 |
if (i2 >= m_size) |
|
2476
|
0 |
0 |
REALMOD(i2,m_size); |
|
|
0 |
0 |
REALMOD(i2,m_size); |
|
2480
|
0 |
0 |
for ( j = 1-q_size; j< n_size; j++) { |
|
2484
|
0 |
0 |
if (j2<0) |
|
2486
|
0 |
0 |
else if (j2 >= n_size) |
|
2490
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
|
0 |
0 |
if (j2<0 || j2 >= n_size) |
|
2494
|
0 |
0 |
if (j2<0) |
|
2496
|
0 |
0 |
if (j2 >= n_size) |
|
2500
|
0 |
0 |
REALMOD(j2,n_size); |
|
|
0 |
0 |
REALMOD(j2,n_size); |
|
2579
|
0 |
2 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
2581
|
0 |
2 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
2586
|
0 |
2 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
2588
|
0 |
2 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |