| line |
true |
false |
branch |
|
28
|
0 |
4 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in numdiff:" "broadcast.incs NULL"); |
|
67
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_SByte,A) |
|
68
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
69
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
70
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
72
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
75
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Byte,B) |
|
76
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
77
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
78
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
80
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
83
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Short,S) |
|
84
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
85
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
86
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
88
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
91
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Ushort,U) |
|
92
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
93
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
94
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
96
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
99
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Long,L) |
|
100
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
101
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
102
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
104
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
107
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULong,K) |
|
108
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
109
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
110
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
112
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
115
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Indx,N) |
|
116
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
117
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
118
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
120
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
123
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_ULongLong,P) |
|
124
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
125
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
126
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
128
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
131
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LongLong,Q) |
|
132
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
133
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
134
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
136
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
139
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Float,F) |
|
140
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
141
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
142
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
144
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
147
|
1 |
3 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
|
4 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
|
0 |
4 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_Double,D) |
|
148
|
0 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
10 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
4 |
4 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
149
|
42 |
10 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
150
|
32 |
10 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
152
|
0 |
4 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
4 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
155
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_LDouble,E) |
|
156
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
157
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
158
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
160
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
163
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CFloat,G) |
|
164
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
165
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
166
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
168
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
171
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CDouble,C) |
|
172
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
173
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
174
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
176
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
179
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_numdiff_1(PDL_CLDouble,H) |
|
180
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_numdiff_readdata {/* do it in reverse so inplace works */ |
|
181
|
0 |
0 |
{/* Open t=::-1 */ PDL_EXPAND2(register PDL_Indx t=(__t_size-1), __t_stop=0); for(; t>=__t_stop; t+=-1) { |
|
182
|
0 |
0 |
(dx_datap)[0+(__inc_dx_t*(t))] = t ? (x_datap)[0+(__inc_x_t*(t))] - (x_datap)[0+(__inc_x_t*(t-1))] : (x_datap)[0+(__inc_x_t*(t))]; |
|
184
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_numdiff_readdata |
|
217
|
0 |
4 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
219
|
0 |
4 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
222
|
0 |
4 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
223
|
0 |
4 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |