| line |
true |
false |
branch |
|
28
|
0 |
12 |
if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in magnover:" "broadcast.incs NULL"); |
|
63
|
1 |
11 |
if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */ |
|
71
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
72
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
74
|
0 |
1 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
75
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,F,a_badval_isnan)) continue; flag = 1;,) |
|
81
|
1 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
82
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
83
|
0 |
1 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
1 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
92
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
93
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
95
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
96
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,D,a_badval_isnan)) continue; flag = 1;,) |
|
102
|
0 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
103
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
104
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
113
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
114
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
116
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
117
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,E,a_badval_isnan)) continue; flag = 1;,) |
|
123
|
0 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
124
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
125
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
134
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
135
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
137
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
138
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,G,a_badval_isnan)) continue; flag = 1;,) |
|
144
|
0 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
145
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
146
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
155
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
156
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
158
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
159
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,C,a_badval_isnan)) continue; flag = 1;,) |
|
165
|
0 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
166
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
167
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
176
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
177
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
179
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
180
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan)) continue; flag = 1;,) |
|
|
0 |
0 |
PDL_IF_BAD(if (PDL_ISBAD2((a_datap)[0+(__inc_a_n*(n))],a_badval,H,a_badval_isnan)) continue; flag = 1;,) |
|
186
|
0 |
0 |
PDL_IF_BAD(if ( !flag ) { (b_datap)[0]=b_badval; continue; },) |
|
187
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
188
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
204
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Float,F,PDL_Float,F) |
|
205
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
207
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
215
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
216
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
225
|
8 |
2 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
10 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
10 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
|
0 |
10 |
PDL_DECLARE_PARAMS_magnover_1(PDL_Double,D,PDL_Double,D) |
|
226
|
0 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
802 |
82 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
82 |
10 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
228
|
1608 |
802 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
236
|
801 |
1 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
237
|
0 |
10 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
10 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
246
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_LDouble,E,PDL_LDouble,E) |
|
247
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
249
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
257
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
258
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
267
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CFloat,G,PDL_Float,F) |
|
268
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
270
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
278
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
279
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
288
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
1 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
|
0 |
1 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CDouble,C,PDL_Double,D) |
|
289
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
1 |
1 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
291
|
4 |
1 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
299
|
1 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
300
|
0 |
1 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
1 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
309
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
|
0 |
0 |
PDL_DECLARE_PARAMS_magnover_1(PDL_CLDouble,H,PDL_LDouble,E) |
|
310
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
|
0 |
0 |
PDL_BROADCASTLOOP_START_magnover_readdata {long double sum=0; |
|
312
|
0 |
0 |
{/* Open n */ PDL_EXPAND2(register PDL_Indx n=0, __n_stop=(__n_size)); for(; n<__n_stop; n+=1) { |
|
320
|
0 |
0 |
(b_datap)[0] = sum == 0 ? 0 : sqrtl(sum); |
|
321
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
|
0 |
0 |
}PDL_BROADCASTLOOP_END_magnover_readdata |
|
358
|
0 |
12 |
if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0}; |
|
360
|
0 |
12 |
if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans"); |
|
363
|
0 |
12 |
PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans)); |
|
364
|
0 |
12 |
PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans)); |