File Coverage

lib/PDL/Ufunc-pp-diffcentred.c
Criterion Covered Total %
statement 42 310 13.5
branch 64 1428 4.4
condition n/a
subroutine n/a
pod n/a
total 106 1738 6.1


line stmt bran cond sub pod time code
1              
2             #line 453 "lib/PDL/PP.pm"
3             /*
4             * THIS FILE WAS GENERATED BY PDL::PP from lib/PDL/Ufunc.pd! Do not modify!
5             */
6              
7             #define PDL_FREE_CODE(trans, destroy, comp_free_code, ntpriv_free_code) \
8             if (destroy) { \
9             comp_free_code \
10             } \
11             if ((trans)->dims_redone) { \
12             ntpriv_free_code \
13             }
14              
15             #include "EXTERN.h"
16             #include "perl.h"
17             #include "XSUB.h"
18             #include "pdl.h"
19             #include "pdlcore.h"
20             #define PDL PDL_Ufunc
21             extern Core* PDL; /* Structure hold core C functions */
22              
23             #line 1857 "lib/PDL/PP.pm"
24             pdl_error pdl_diffcentred_readdata(pdl_trans *__privtrans) {
25             pdl_error PDL_err = {0, NULL, 0};
26             #line 27 "lib/PDL/Ufunc-pp-diffcentred.c"
27 5           register PDL_Indx __n_size = __privtrans->ind_sizes[0];
28 5 50         if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in diffcentred:" "broadcast.incs NULL");
29             /* broadcastloop declarations */
30             int __brcloopval;
31             register PDL_Indx __tind0,__tind1; /* counters along dim */
32 5           register PDL_Indx __tnpdls = __privtrans->broadcast.npdls;
33             /* dims here are how many steps along those dims */
34 5           register PDL_Indx __tinc0_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,0);
35 5           register PDL_Indx __tinc0_o = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,0);
36 5           register PDL_Indx __tinc1_a = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,0,1);
37 5           register PDL_Indx __tinc1_o = PDL_BRC_INC(__privtrans->broadcast.incs,__tnpdls,1,1);
38             #define PDL_BROADCASTLOOP_START_diffcentred_readdata PDL_BROADCASTLOOP_START( \
39             readdata, \
40             __privtrans->broadcast, \
41             __privtrans->vtable, \
42             a_datap += __offsp[0]; \
43             o_datap += __offsp[1]; \
44             , \
45             ( ,a_datap += __tinc1_a - __tinc0_a * __tdims0 \
46             ,o_datap += __tinc1_o - __tinc0_o * __tdims0 \
47             ), \
48             ( ,a_datap += __tinc0_a \
49             ,o_datap += __tinc0_o \
50             ) \
51             )
52             #define PDL_BROADCASTLOOP_END_diffcentred_readdata PDL_BROADCASTLOOP_END( \
53             __privtrans->broadcast, \
54             a_datap -= __tinc1_a * __tdims1 + __offsp[0]; \
55             o_datap -= __tinc1_o * __tdims1 + __offsp[1]; \
56             )
57 5           register PDL_Indx __inc_a_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,0,0)]; (void)__inc_a_n;
58 5           register PDL_Indx __inc_o_n = __privtrans->inc_sizes[PDL_INC_ID(__privtrans->vtable,1,0)]; (void)__inc_o_n;
59             #ifndef PDL_DECLARE_PARAMS_diffcentred_1
60             #define PDL_DECLARE_PARAMS_diffcentred_1(PDL_TYPE_OP,PDL_PPSYM_OP) \
61             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, a, (__privtrans->pdls[0]), 1, PDL_PPSYM_OP) \
62             PDL_DECLARE_PARAMETER_BADVAL(PDL_TYPE_OP, o, (__privtrans->pdls[1]), 1, PDL_PPSYM_OP)
63             #endif
64 5 100         if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
65             #define PDL_BAD_CODE
66             #define PDL_IF_BAD(t,f) t
67 1           switch (__privtrans->__datatype) { /* Start generic switch */
68 0           case PDL_SB: {
69 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
70 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
71 0           PDL_Indx left = n-1, right = n+1;
72 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
73 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
74 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,A,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,A,a_badval_isnan)) {
    0          
    0          
    0          
75             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
76             },)
77 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
78             }} /* Close n */
79 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
80 0           } break;
81 0           case PDL_B: {
82 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
83 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
84 0           PDL_Indx left = n-1, right = n+1;
85 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
86 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
87 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,B,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,B,a_badval_isnan)) {
    0          
    0          
    0          
88             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
89             },)
90 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
91             }} /* Close n */
92 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
93 0           } break;
94 0           case PDL_S: {
95 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
96 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
97 0           PDL_Indx left = n-1, right = n+1;
98 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
99 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
100 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,S,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,S,a_badval_isnan)) {
    0          
    0          
    0          
101             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
102             },)
103 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
104             }} /* Close n */
105 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
106 0           } break;
107 0           case PDL_US: {
108 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
109 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
110 0           PDL_Indx left = n-1, right = n+1;
111 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
112 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
113 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,U,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,U,a_badval_isnan)) {
    0          
    0          
    0          
114             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
115             },)
116 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
117             }} /* Close n */
118 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
119 0           } break;
120 0           case PDL_L: {
121 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
122 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
123 0           PDL_Indx left = n-1, right = n+1;
124 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
125 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
126 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,L,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,L,a_badval_isnan)) {
    0          
    0          
    0          
127             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
128             },)
129 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
130             }} /* Close n */
131 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
132 0           } break;
133 0           case PDL_UL: {
134 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
135 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
136 0           PDL_Indx left = n-1, right = n+1;
137 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
138 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
139 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,K,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,K,a_badval_isnan)) {
    0          
    0          
    0          
140             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
141             },)
142 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
143             }} /* Close n */
144 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
145 0           } break;
146 0           case PDL_IND: {
147 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
148 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
149 0           PDL_Indx left = n-1, right = n+1;
150 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
151 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
152 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,N,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,N,a_badval_isnan)) {
    0          
    0          
    0          
153             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
154             },)
155 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
156             }} /* Close n */
157 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
158 0           } break;
159 0           case PDL_ULL: {
160 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
161 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
162 0           PDL_Indx left = n-1, right = n+1;
163 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
164 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
165 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,P,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,P,a_badval_isnan)) {
    0          
    0          
    0          
166             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
167             },)
168 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
169             }} /* Close n */
170 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
171 0           } break;
172 0           case PDL_LL: {
173 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
174 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
175 0           PDL_Indx left = n-1, right = n+1;
176 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
177 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
178 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,Q,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,Q,a_badval_isnan)) {
    0          
    0          
    0          
179             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
180             },)
181 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
182             }} /* Close n */
183 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
184 0           } break;
185 0           case PDL_F: {
186 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
187 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
188 0           PDL_Indx left = n-1, right = n+1;
189 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
190 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
191 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,F,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,F,a_badval_isnan)) {
    0          
    0          
    0          
    0          
    0          
192             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
193             },)
194 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
195             }} /* Close n */
196 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
197 0           } break;
198 1           case PDL_D: {
199 1 50         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Double,D)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
200 10 50         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    50          
    50          
    50          
    50          
    100          
    100          
    100          
201 6           PDL_Indx left = n-1, right = n+1;
202 6 100         if (left < 0) left = __privtrans->ind_sizes[0]-1;
203 6 100         if (right >= __privtrans->ind_sizes[0]) right = 0;
204 6 50         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,D,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,D,a_badval_isnan)) {
    0          
    100          
    50          
    0          
    100          
205             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
206             },)
207 4           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
208             }} /* Close n */
209 1 50         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    50          
210 1           } break;
211 0           case PDL_LD: {
212 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
213 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
214 0           PDL_Indx left = n-1, right = n+1;
215 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
216 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
217 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,E,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,E,a_badval_isnan)) {
    0          
    0          
    0          
    0          
    0          
218             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
219             },)
220 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
221             }} /* Close n */
222 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
223 0           } break;
224 0           case PDL_CF: {
225 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
226 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
227 0           PDL_Indx left = n-1, right = n+1;
228 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
229 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
230 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,G,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,G,a_badval_isnan)) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
231             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
232             },)
233 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
234             }} /* Close n */
235 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
236 0           } break;
237 0           case PDL_CD: {
238 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
239 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
240 0           PDL_Indx left = n-1, right = n+1;
241 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
242 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
243 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,C,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,C,a_badval_isnan)) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
244             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
245             },)
246 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
247             }} /* Close n */
248 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
249 0           } break;
250 0           case PDL_CLD: {
251 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
252 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
253 0           PDL_Indx left = n-1, right = n+1;
254 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
255 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
256 0 0         PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,H,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,H,a_badval_isnan)) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
257             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
258             },)
259 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
260             }} /* Close n */
261 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
262 0           } break;
263 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in diffcentred: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
264             }
265             #undef PDL_BAD_CODE
266             #undef PDL_IF_BAD
267             } else { /* ** else do 'good' Code ** */
268             #define PDL_IF_BAD(t,f) f
269 4           switch (__privtrans->__datatype) { /* Start generic switch */
270 0           case PDL_SB: {
271 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_SByte,A)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
272 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
273 0           PDL_Indx left = n-1, right = n+1;
274 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
275 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
276             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,A,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,A,a_badval_isnan)) {
277             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
278             },)
279 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
280             }} /* Close n */
281 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
282 0           } break;
283 0           case PDL_B: {
284 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Byte,B)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
285 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
286 0           PDL_Indx left = n-1, right = n+1;
287 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
288 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
289             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,B,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,B,a_badval_isnan)) {
290             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
291             },)
292 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
293             }} /* Close n */
294 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
295 0           } break;
296 0           case PDL_S: {
297 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Short,S)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
298 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
299 0           PDL_Indx left = n-1, right = n+1;
300 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
301 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
302             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,S,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,S,a_badval_isnan)) {
303             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
304             },)
305 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
306             }} /* Close n */
307 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
308 0           } break;
309 0           case PDL_US: {
310 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Ushort,U)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
311 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
312 0           PDL_Indx left = n-1, right = n+1;
313 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
314 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
315             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,U,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,U,a_badval_isnan)) {
316             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
317             },)
318 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
319             }} /* Close n */
320 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
321 0           } break;
322 0           case PDL_L: {
323 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Long,L)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
324 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
325 0           PDL_Indx left = n-1, right = n+1;
326 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
327 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
328             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,L,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,L,a_badval_isnan)) {
329             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
330             },)
331 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
332             }} /* Close n */
333 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
334 0           } break;
335 0           case PDL_UL: {
336 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_ULong,K)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
337 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
338 0           PDL_Indx left = n-1, right = n+1;
339 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
340 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
341             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,K,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,K,a_badval_isnan)) {
342             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
343             },)
344 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
345             }} /* Close n */
346 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
347 0           } break;
348 0           case PDL_IND: {
349 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Indx,N)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
350 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
351 0           PDL_Indx left = n-1, right = n+1;
352 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
353 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
354             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,N,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,N,a_badval_isnan)) {
355             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
356             },)
357 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
358             }} /* Close n */
359 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
360 0           } break;
361 0           case PDL_ULL: {
362 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_ULongLong,P)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
363 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
364 0           PDL_Indx left = n-1, right = n+1;
365 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
366 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
367             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,P,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,P,a_badval_isnan)) {
368             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
369             },)
370 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
371             }} /* Close n */
372 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
373 0           } break;
374 0           case PDL_LL: {
375 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_LongLong,Q)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
376 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
377 0           PDL_Indx left = n-1, right = n+1;
378 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
379 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
380             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,Q,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,Q,a_badval_isnan)) {
381             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
382             },)
383 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
384             }} /* Close n */
385 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
386 0           } break;
387 0           case PDL_F: {
388 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Float,F)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
389 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
390 0           PDL_Indx left = n-1, right = n+1;
391 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
392 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
393             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,F,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,F,a_badval_isnan)) {
394             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
395             },)
396 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
397             }} /* Close n */
398 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
399 0           } break;
400 4           case PDL_D: {
401 4 100         PDL_DECLARE_PARAMS_diffcentred_1(PDL_Double,D)
    50          
    50          
    50          
    50          
    50          
    50          
    50          
402 66 50         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    50          
    50          
    50          
    50          
    100          
    100          
    100          
403 44           PDL_Indx left = n-1, right = n+1;
404 44 100         if (left < 0) left = __privtrans->ind_sizes[0]-1;
405 44 100         if (right >= __privtrans->ind_sizes[0]) right = 0;
406             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,D,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,D,a_badval_isnan)) {
407             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
408             },)
409 44           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
410             }} /* Close n */
411 4 50         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    50          
412 4           } break;
413 0           case PDL_LD: {
414 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_LDouble,E)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
415 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
416 0           PDL_Indx left = n-1, right = n+1;
417 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
418 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
419             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,E,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,E,a_badval_isnan)) {
420             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
421             },)
422 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
423             }} /* Close n */
424 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
425 0           } break;
426 0           case PDL_CF: {
427 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CFloat,G)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
428 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
429 0           PDL_Indx left = n-1, right = n+1;
430 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
431 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
432             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,G,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,G,a_badval_isnan)) {
433             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
434             },)
435 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
436             }} /* Close n */
437 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
438 0           } break;
439 0           case PDL_CD: {
440 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CDouble,C)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
441 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
442 0           PDL_Indx left = n-1, right = n+1;
443 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
444 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
445             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,C,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,C,a_badval_isnan)) {
446             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
447             },)
448 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
449             }} /* Close n */
450 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
451 0           } break;
452 0           case PDL_CLD: {
453 0 0         PDL_DECLARE_PARAMS_diffcentred_1(PDL_CLDouble,H)
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
454 0 0         PDL_BROADCASTLOOP_START_diffcentred_readdata {{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) {
    0          
    0          
    0          
    0          
    0          
    0          
    0          
455 0           PDL_Indx left = n-1, right = n+1;
456 0 0         if (left < 0) left = __privtrans->ind_sizes[0]-1;
457 0 0         if (right >= __privtrans->ind_sizes[0]) right = 0;
458             PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(left))],a_badval,H,a_badval_isnan) || PDL_ISBAD2((a_datap)[0+(__inc_a_n*(right))],a_badval,H,a_badval_isnan)) {
459             (o_datap)[0+(__inc_o_n*(n))]=o_badval; continue;
460             },)
461 0           (o_datap)[0+(__inc_o_n*(n))] = ((a_datap)[0+(__inc_a_n*(right))] - (a_datap)[0+(__inc_a_n*(left))])/2;
462             }} /* Close n */
463 0 0         }PDL_BROADCASTLOOP_END_diffcentred_readdata
    0          
464 0           } break;
465 0           default: return PDL->make_error(PDL_EUSERERROR, "PP INTERNAL ERROR in diffcentred: unhandled datatype(%d), only handles (ABSULKNPQFDEGCH)! PLEASE MAKE A BUG REPORT\n", __privtrans->__datatype);
466             }
467             #undef PDL_IF_BAD
468             }
469 5           return PDL_err;
470             }
471              
472             static pdl_datatypes pdl_diffcentred_vtable_gentypes[] = { PDL_SB, PDL_B, PDL_S, PDL_US, PDL_L, PDL_UL, PDL_IND, PDL_ULL, PDL_LL, PDL_F, PDL_D, PDL_LD, PDL_CF, PDL_CD, PDL_CLD, -1 };
473             static PDL_Indx pdl_diffcentred_vtable_realdims[] = { 1, 1 };
474             static char *pdl_diffcentred_vtable_parnames[] = { "a","o" };
475             static short pdl_diffcentred_vtable_parflags[] = {
476             0,
477             PDL_PARAM_ISCREAT|PDL_PARAM_ISOUT|PDL_PARAM_ISWRITE
478             };
479             static pdl_datatypes pdl_diffcentred_vtable_partypes[] = { -1, -1 };
480             static PDL_Indx pdl_diffcentred_vtable_realdims_starts[] = { 0, 1 };
481             static PDL_Indx pdl_diffcentred_vtable_realdims_ind_ids[] = { 0, 0 };
482             static char *pdl_diffcentred_vtable_indnames[] = { "n" };
483             pdl_transvtable pdl_diffcentred_vtable = {
484             PDL_TRANS_DO_BROADCAST|PDL_TRANS_BADPROCESS, 0, pdl_diffcentred_vtable_gentypes, 1, 2, NULL /*CORE21*/,
485             pdl_diffcentred_vtable_realdims, pdl_diffcentred_vtable_parnames,
486             pdl_diffcentred_vtable_parflags, pdl_diffcentred_vtable_partypes,
487             pdl_diffcentred_vtable_realdims_starts, pdl_diffcentred_vtable_realdims_ind_ids, 2,
488             1, pdl_diffcentred_vtable_indnames,
489             NULL, pdl_diffcentred_readdata, NULL,
490             NULL,
491             0,"PDL::Ufunc::diffcentred"
492             };
493              
494              
495 5           pdl_error pdl_run_diffcentred(pdl *a,pdl *o) {
496 5           pdl_error PDL_err = {0, NULL, 0};
497 5 50         if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
498 5           pdl_trans *__privtrans = PDL->create_trans(&pdl_diffcentred_vtable);
499 5 50         if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
500 5           __privtrans->pdls[0] = a;
501 5           __privtrans->pdls[1] = o;
502 5 50         PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
503 5 50         PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));
504 5           return PDL_err;
505             }